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PRÉFACE 


Ce livre, TO7/56 programmes BASIC, vous permettra de mieux 
connaître les possibilités de votre ordinateur et d’en apprécier la 
souplesse d’emploi. NH réunit 56 programmes et sous-programmes 
dûment testés et prêts à être utilisés. Certains vous sont proposés pour 
leur valeur éducative, d’autres pour les solutions qu'ils apporteront à 
vos problèmes d'ordre financier dans votre vie familiale comme dans 
votre vie professionnelle. Pour les mettre en œuvre, il n’est pas 
nécessaire de comprendre la programmation en langage BASIC. Lors- 
que vous avez un problème à résoudre il vous suffit d’en fournir les 
données à votre ordinateur après avoir introduit en mémoire le 
programme correspondant. 

Ces programmes vous seront utiles en des circonstances très diverses. 
Vous pourrez par exemple déterminer le seuil de rentabilité d’une 
nouvelle affaire, calculer les versements mensuels nécessaires pour 
constituer une provision permettant de faire face aux frais d'éducation 
de vos enfants, ou encore établir le bilan prévisionnel d’un fonds de 
retraite. Les programmes d’entraînement à l’arithmétique sont conçus 
plus particulièrement à l’intention des écoliers confrontés aux difficul- 
tés de leurs « devoirs du soir ». 

Le livre comprend de nombreux programmes originaux. Vous y 
trouverez aussi des programmes d'entraînement au calcul de fractions, 
un programme de multiplication de grands nombres, et des program- 
mes associant l’analyse des données et leur traitement graphique qui 
figurent rarement dans les manuels. 

De même l’utilisation de sous-programmes de base est particulière à 
cet ouvrage. En effet, l’un de ses principaux objectifs est de fournir des 
programmes courts, donc faciles à introduire dans l’ordinateur; pour 
atteindre ce but, il a été établi un ensemble de sous-programmes 
généraux utilisables par les autres programmes. Ces sous-programmes 
que vous pourrez employer quand vous écrirez vos propres programmes 
vous éviteront bien du travail. 
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Ce livre n’a pas pour objet d'enseigner la programmation en BASIC; 
cependant, l’utilisation des programmes qu’il contient vous aidera à 
comprendre ce langage, sans effort et de manière presque automatique. 
Au fur et à mesure que vous vous familiariserez avec lui, vous 
deviendrez capable de modifier les programmes qui vous sont proposés 
et d’en écrire de nouveaux. 

Les sujets traités dans le présent ouvrage sont répartis en sept 
chapitres selon le plan suivant : 


Chapitre 1 : Instructions pour l’utilisation des programmes. Procédés 
permettant le dialogue entre l’utilisateur et les programmes. (Relire ce 
chapitre avant toute mise en œuvre.) 


Chapitre 2 : Programmes relatifs aux finances familiales et profes- 
sionnelles. On trouvera ici des programmes permettant d’établir le 
bilan prévisionnel d’un compte de dépôt ou celui d’un compte constitué 
par des dépôts réguliers (par exemple d’un fonds de retraite) et aussi les 
programmes permettant de calculer le taux d'intérêt d’un investisse- 
ment ou de déterminer le rythme d’accroissement d’un capital in- 
vesti. 


Chapitre 3 : Programmes concernant la gestion des entreprises. Ils 
permettent d'établir les conditions de l’amortissement d’une machine, 
le seuil de rentabilité d’une affaire nouvellement créée, ou d’effectuer le 
calcul d’un salaire en tenant compte des heures supplémentaires. 


Chapitre 4 : Programmes de gestion immobilière. Hypothèques. 
Rendement de placements immobiliers. (Vous pourrez, par exemple, 
calculer ce que vous fait gagner l'adoption d’une procédure de 
remboursement accéléré d’un prêt hypothécaire.) Les investisseurs, les 
propriétaires, apprécieront l’aide que leur apporteront ces program- 
mes. 


Chapitre 5 : Programmes d'analyse de données, scientifiques ou 
financières. Ces programmes permettent en particulier de calculer la 
déviation standard et la moyenne, les diverses moyennes mobiles, la 
régression linéaire et d'obtenir les graphiques correspondants. Ils 
pourront servir à l’analyse des marchés et auront des applications dans 
des domaines très divers. 


Chapitre 6 : I] propose des exercices d’arithmétique pratique que les 
écoliers et les lycéens utiliseront avec profit. Ces exercices portent sur 
l'addition, la soustraction, la multiplication et la division des nombres 
entiers et des fractions. 
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On trouvera à la fin de cet ouvrage deux annexes : 


Annexe À : Listes des sous-programmes qui permettent l’utilisation 
de programmes principaux très courts. Ces listes sont ordonnées de 
telle sorte qu’il n’y a aucun problème pour s’y référer. Le rôle joué par 
les sous-programmes est indiqué dans les commentaires figurant dans 
les programmes principaux. 


Annexe B : Emploi des sous-programmes pour la création de 
nouveaux programmes. (La description de la méthode préconisée est 
illustrée d'exemples qui en facilitent la compréhension.) 


INTRODUCTION 


Le but de cette introduction est de vous montrer que les programmes de 
ce livre peuvent accroître considérablement l’efficacité de votre ordi- 
nateur. Vous apprendrez comment les introduire en mémoire et les 
faire fonctionner, comment créer une bibliothèque de sous-program- 
mes et une bibliothèque de programmes pouvant être mis en œuvre à 
partir d’un même catalogue. Vous y trouverez aussi la définition d’un 
programme interactif et des informations sur la manière dont cette 
interaction est réalisée. 

Les programmes figurant ici ne demandent pas une connaissance 
particulière de la programmation en langage BASIC. Ils doivent être 
considérés simplement comme susceptibles d'apporter une solution à 
un grand nombre de problèmes professionnels ou domestiques. Cepen- 
dant, si vous souhaitez étendre vos connaissances en matière de 
programmation, ils vous apprendront comment tirer pleinement parti 
des grandes possibilités de votre ordinateur. 


INDICATIONS PRÉLIMINAIRES 


On associera à l'ordinateur un magnétophone à cassettes. Vous 
trouverez, dans votre manuel TO7, les instructions nécessaires pour 
charger les programmes en mémoire et les faire fonctionner. 

Pour utiliser ce BASIC, il suffit de mettre l’ordinateur en marche. 
Après un court instant, l'écran affiche : 


OK 


Vous aurez besoin de deux cassettes pour sauvegarder chaque groupe 
de programmes (un enregistrement de travail et une copie). Vous 
devrez toujours faire deux enregistrements de chaque programme. 
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A ce stade, vous pourrez charger en mémoire n'importe quel 
programme de ce livre. Pour cela vous devrez taper au clavier chacune 
des lignes de la liste du programme choisi de manière qu’elles soient la 
réplique exacte de celles figurant dans le livre. Après la frappe de 
chaque ligne, pressez la touche d’entrée : (ENTRÉE). Introduisez par 
exemple le programme qui suit: 


100 PRINT « HELLO » 
110 END 


Commencez par taper la première ligne (100 PRINT « HELLO »). 
Introduisez cette ligne en mémoire en pressant la touche ENTRÉE. 
Complétez la saisie du programme en tapant puis en introduisant la 
seconde ligne. 

En effectuant ce genre d'opération vous commettrez quelquefois des 
erreurs. Si le texte est très court, le plus simple et de le retaper. S’il est 
long, reportez-vous au manuel d'utilisation qui propose d’autres 
méthodes de correction. 

Pour mettre en œuvre le programme, tapez RUN 100 et pressez la 
touche d’entrée tout en surveillant l’affichage à l’écran; vous constatez 
alors que votre programme fait apparaître HELLO au-dessous du 
programme déjà affiché. D’autres informations sur l'introduction en 
mémoire, la sauvegarde et la mise en œuvre des programmes vous 
seront données un peu plus loin. 


LES COMMENTAIRES 


Les commentaires figurant dans un programme en facilitent la 
compréhension. Ils sont précédés par le symbole REM. Sur la Figure 1.1 
les commentaires encadrent une ligne au début du programme et 
expliquent le rôle de la ligne 130. Lorsque vous effectuez la saisie d’un 
programme, vous n'avez pas en principe à taper les lignes de 
commentaires. La première ligne est cependant rendue nécessaire par 
la structure de ces programmes. La Figure 1.2 donne la liste du 
programme précédent (Figure 1.1) dans laquelle n’ont été conservées 
que les instructions nécessaires à son utilisation. 
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N$="EXEMPLE" 


REM ON AFFICHE LA SOMME DE X ET Y 
PRINT X+Y 
END 


Figure 1.1: Programme comprenant des lignes de commentaires 


REM 
N$="EXEMPLE ” 
INPUT X 


INPUT Y 
PRINT X+Y 
END 


Figure 1.2 : Programme comprenant des lignes de commentaires condensées 


CONSTITUTION D'UNE BIBLIOTHÈQUE 
DE SOUS-PROGRAMMES 


On se servira d’une bibliothèque centrale de sous-programmes afin de 
simplifier la saisie et la manipulation des programmes. Un sous- 
programme est un programme qui est utilisé comme partie d’un autre 
programme. Par exemple un sous-programme général effectue l’entrée 
des données pour une grande partie de nos programmes qui peuvent 
ainsi être courts et d’une introduction plus aisée. 

La liste de chacun des sous-programmes figure dans l’Annexe A. 
Dans l’Annexe B, il vous sera expliqué comment vous pouvez utiliser 
certains de ces sous-programmes pour créer vos propres program- 
mes. 

Tout d’abord nous établirons la bibliothèque de sous-programmes. 
Reportez-vous à l’Annexe A dans laquelle vous trouverez les listes de 
sous-programmes généraux. 

Vous commencerez par la ligne 3400. Introduisez les instructions de 
ce sous-programme dans votre ordinateur après avoir tapé NEW pour 
effacer toutes traces de précédents programmes. (Rappelez-vous que 
seuls seront conservés les commentaires de la première ligne de chaque 
programme.) L'affichage obtenu doit être celui de la Figure 1.3. 
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3400 REM 
3420 Q1$="VOULEZ-VOUS" 
3430 Q3$="DE NOUVEAU (Q OÙ NI" 


3440 GOSUB 5000 
‘3450 ‘GOSUB 7800 
-5460 RETURN 


Figure 1.3: Une liste de programme : le sous-programme UNAU 


Poursuivez par la saisie du reste des sous-programmes. Vous 
procéderez ensuite à la sauvegarde de l’ensemble de ces sous-program- 
mes standard. Suivez les instructions du manuel du TO7 pour préparer 
votre magnétophone. 

Pour sauvegarder les sous-programmes sur cassette, tapez : 


SAVE « SUBLIB » 


Votre bibliothèque centrale de sous-programmes est maintenant 
stockée en mémoire de masse sous le nom de fichier SUBLIB. Vous 
aurez donc la possibilité de l’associer à vos programmes d’application 
quand vous voudrez mettre en œuvre ces derniers. 


SAISIE ET MISE EN ŒUVRE DES PROGRAMMES 


Chargez tout d’abord en mémoire la bibliothèque de sous-program- 
mes en tapant : 


LOAD « SUBLIB » 


Vous êtes maintenant prêt pour effectuer la saisie d’un programme. 
Tapez ses instructions conformément à la liste. Les programmes des 
Chapitres 2, 3 et 4 doivent être sauvegardés sous forme d’un seul fichier 
pour chaque chapitre. (Donnez aux fichiers des noms qui permettent de 
les identifier aisément.) Pour mettre en œuvre un de ces programmes, 
il faut le charger en mémoire centrale puis taper RUN et le numéro de 
la première ligne du programme concerné. Lorsque vous aurez opéré la 
saisie de tous les programmes d’un chapitre, vous pourrez créer un 
catalogue qui vous permettra ultérieurement de sélectionner le pro- 
gramme que vous voudrez utiliser. La marche à suivre pour créer le 
catalogue est donnée dans chaque chapitre. Les programmes de ces 
chapitres sont composés de lignes dont les numéros sont différents; il 
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est ainsi possible pour chaque chapitre de mettre en mémoire en un 
seul fichier les programmes et le catalogue. 

‘Il y a par exemple dans le:Chapitre 2 plusieurs programmes qui vous 
permettront de “farre des calculs frnanciers. Entrez en mémoire le 
programme SUBLAB puis. tapez au ‘clavier -te programme « État prévi- 
sionnel d’an-compte de dépôt » et faites 1a sauvegarde du tout au moyen 
de l’instruction 

SAVE « FIN » 


Si maintenant vous souhaïtez utiliser un autre programme financier, 
charger celui qui vient d’être sauvegardé en tapant : 


LOAD « FIN » 


Vous pouvez alors introduire un deuxième programme et vous sauve- 
garderez les deux programmes ensemble en frappant au clavier 


SAVE « FIN » 


Vous voyez donc comment, par cette méthode, il vous est possible de 
constituer une bibliothèque de programmes. 

Vous pourrez ainsi faire fonctionner n’importe quel programme du 
chapitre en le choisissant à partir du catalogue sans avoir à vous 
souvenir d’un quelconque numéro de ligne. Pour que le catalogue 
puisse être utilisé vous devrez remplacer dans la dernière ligne de 
chaque programme l'instruction END par l’instruction RETURN. 

Les programmes des Chapitres 5 et 6 sont destinés à être mis en 
œuvre d’une manière un peu différente. Le catalogue est placé en 
tête de programme, vous devez donc introduire le catalogue et ensuite 
le programme d’application choisi. Ces programmes sont lancés par 
sélection à partir du catalogue. Les catalogues étant placés au début des 
programmes, vous n’avez pas à vous préoccuper de leur assemblage et 
vous n’avez pas non plus à remplacer l'instruction END. 


# 


MODALITÉS D’INTERACTION 


Le terme « interaction » s’applique à l’adaptation qui doit être réalisée 
entre l'ordinateur, les programmes et l'utilisateur. Le but d’un 
programme interactif est de rendre aussi simple que possible le 
dialogue de l’utilisateur avec son ordinateur. 

Ce but peut être atteint de différentes manières. Le plus souvent, la 
réponse aux questions sera obtenue par pression d’une seule touche 
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sans intervention de la touche d’entrée. (C’est ainsi par exemple que 
seront choisis des programmes à partir du catalogue et que la simple 
frappe de la touche O ou N donnera la réponse Oui/Non.) Une autre 
disposition interactive consiste à placer toutes les questions au bas de 
l'écran de sorte que l'utilisateur les trouve toujours au même endroit. 
Les réponses sont reportées au sommet de l’écran de manière que l’on 
puisse s’y référer. 


RÉSUMÉ 


Nous avons cherché, dans ce chapitre, à vous donner les instructions 
nécessaires à la création et à la sauvegarde d’un ensemble de 
sous-programmes destinés à être utilisés conjointement aux autres 
programmes et à vous indiquer comment constituer une bibliothèque 
de programmes, groupés de manière à être mis en œuvre à partir de 
catalogues. l'agencement de ces programmes est tel qu’on pourra 
toujours ajouter, si besoin est, un nouveau programme à l’ensemble des 
précédents. 

C’est grâce à l'existence d’une bibliothèque centrale de sous- 
programmes généraux que les programmes de ce livre sont aussi courts 
et d’une utilisation aussi aisée. 
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FINANCES 
PERSONNELLES ET 
PROFESSIONNELLES 


Ce chapitre comprend dix programmes applicables à la gestion des 
finances personnelles ou professionnelles. Supposons par exemple que 
vous soyez sur le point de déposer de l’argent sur un compte bancaire 
pour un temps déterminé. Une banque verse 8 % d'intérêts composés 
au mois, et une autre 8,25 % d'intérêts composés au trimestre. Un 
programme vous permettra, en utilisant votre ordinateur, de recon- 
naître immédiatement le placement le plus intéressant. 

Souhaitez-vous faire des versements réguliers sur un compte 
retraite? En utilisant l’un des dix programmes de ce chapitre vous 
calculerez la somme qui sera disponible sur ce compte quand vous 
arrêterez de travailler. Un autre vous permettra de savoir si vos 
économies sont suffisantes pour vous assurer une retraite Convena- 
ble. 

Le dernier programme montre comment réunir tous les programmes 
en un ensemble et constituer ainsi un outil de calcul financier dont 
chacun des programmes composants peut être sélectionné à partir d’un 
même catalogue. 
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Description 


Vous posez-vous des questions sur le rythme de croissance des comptes 
de dépôt? Désirez-vous comparer les résultats obtenus avec différents 
taux et périodes de compositions d'intérêts? 

Ce programme vous permet de prévoir l’évolution de votre compte. 
Vous ferez intervenir le montant de la somme déposée, le nombre 
annuel des périodes de composition des intérêts, le taux d'intérêt 
annuel et la durée de placement (en années). Le programme a été établi 
sur la base d’un taux d'intérêt constant. 


Exemple 


Thomas place une somme de 40 000 F sur un compte de dépôt pour une 
durée de quatre ans. Ce placement lui rapporte 12 % d'intérêts annuels 
composés trimestriellement. Thomas voudrait savoir quel sera le 
montant de son compte au bout de quatre ans. La Figure 2.1 montre le 
résultat du calcul obtenu à l’écran. La Figure 2.2 donne la liste du 
programme correspondant. 
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Finances personnelles et professionnelles 


ETAT PREVISIONNEL D'UN COMPTE 


DEPOT INITIAL (F) 40000.00 
FERIODES PAR AN 4.00 
TAUX D'‘'INT ANN (2) 12.00 
NOMRRE D'ANNEES 4.00 
ETAT EN FIN D'OFER (F) 44188.:0 


-- VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


Figure 2.1.: Affichage à l’écran : État prévisionnel d'un compte 


N#="ETAT FREVISIONNEL D'UN COMPTE" 

REMSSSSST SSSR EE Sr rem 

REM PREPARATION 

GOSUB 6700 : K=1 

REM PARAMETRES À UTILISER 
@1+="INTRODUISEZ LES DONNEES" : Q2#="" 
"DEPOT INITIAL (F)" : GOSUB 6600 


3+%="PERIODES FAR AN" : SOSUB 6600 
G3+#="TAUX D'INT ANN (%4)" : GOSUB 6600 
QF$="NOMRRE D'ANNEES" : GOSUB 6600 
REM CALCULS 
FRINT 
FRINT'ETAT EN FIN D'OFER (F)";TAB(28) 
A=PAR(1) 


FOR I=i TO FAR(2)#PAR(4) 
A=A+A#FAR (35) /100/PAR (2) 

NEXT I 

A=INT(8#100+.5)/100 

FRINT USING"#####4. #4": À 
@G2#="CALCULER" : GOSUE 3400 

IF NO$="N" THEN END ELSE GOTO 2B0 


Figure 2.2. : Liste du programme : Étai prévisionnel d’un compte 
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ÉTAT PRÉVISIONNEL D'UN COMPTE CONSTITUÉ 
PAR DES DÉPÔTS RÉGULIERS 


Description 


Ce programme permet d’obtenir le montant d’un compte constitué par 
une série de versements réguliers. Vous pouvez par exemple déterminer 
à l’avance l’état de votre compte retraite en fonction de vos versements. 
Vous ferez intervenir le montant de chaque versement, le nombre de 
versements effectués par an, le taux de l’intérêt que vous rapporte votre 
argent et le nombre d’années durant lesquelles vous ferez ces verse- 
ments. On a posé comme hypothèse que le nombre de versements par 
an et celui des périodes de composition de l'intérêt sont les mêmes. 


Exemple 


Anne a l'intention de verser chaque mois 4 000 F sur son compte de 
dépôt. Son compte lui rapportera un intérêt annuel de 6 % composé 
mensuellement. Quelle somme aura-t-elle sur son compte dans quatre 
ans? La Figure 2.3 montre l’affichage concernant cet exemple. La liste 
du programme se trouve Figure 2.4. 


499 
500 
5190 
515 
529 
5 

540 
550 
560 
579 
589 
590 
PATU 
619 
&20 
6359 
640 
650 
é4û 
679 
680 
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ETAT FREV D'UN COMFT CONST PAR DEF REGU 


MONT D'UN VERSEMENT (F) 4009.00 
NBRE DE VERSMNTS FAR AN 12.00 
INTERET ANNUEL (%) 6.09 
NOMBRE D'ANNEES 4.99 
ETAT EN FIN D'OPER {F) 214391.990 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


| Figure 2.3. : Affichage à l’écran : 
État prévisionnel d’un compte constitué par des dépôts réguliers 


N$="ETAT FREV D'UN COMFT CONST FAR DEF REGU" 


REM' ESS ESS ee mens ee 

REM PREPARATION 

GOSUR 6200 : K=1 

REM FARAMETRES À UTILISER 

G1#="INTRODUISEZ LES DONNEES" : QG2$="" 
Q3#$="MONT D'UN VERSEMENT (F)" : GOSUR 6809 
Q3$="NHRE DE VERSMNTS FAR AN" : GOSUB 64609 
G3+#$="INTERET ANNUEL (%)" : GOSUR 66900 
GS5$="NOMERE D'ANNEES" : GOSUB 6609 

REM CALCULS 


FKRINT =: FRINT'ETAT EN FIN D'OFER (F)"3:TAR(2B) 


A=9 

FOR I1=1 TO PAR(2) #PAR(4) 
A=PAR (1) +A+AxXFAR(3) /100/FAR (2) 
NEXT I 

A=INT(A#100+.5) /100 

FRINT USING"##H##H#. 4H": A 
Q2?2$="CALCULER" : GOSUR 3409 
IF NO$="N" THEN END ELSE GOTO 


320 


Figure 2.4.: Liste du programme : 
État prévisionnel d’un compte constitué par des dépôts réguliers 
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VALEUR ACTUALISÉE D’UNE CRÉANCE 


Bescription 


‘Supposons que Robert aït à vous-rembourser-dans:trois ans une somme 
-de 40 000 F..1l vous propose un remboursement immédiat de 32 O00F 
et vous vous demandez si vous devez accepter son offre. Le présent 
programme utilise, pour déterminer la valeur actualisée de votre 
créance, le taux d'intérêt que vous indiquerez. Si cette valeur est 
inférieure à 32 000 F vous pouvez accepter l'offre. 

Pour mettre en œuvre ce programme, vous ferez intervenir le 
montant du paiement à terme, le taux de l’intérêt annuel que peut vous 
rapporter l'argent remboursé, le nombre annuel des périodes de 
composition de cet intérêt et la durée (en années) de la période au bout 
de laquelle le versement doit être fait. 


Exemple 


Guillaume détient un effet pour une somme de 80 000 F qu’on lui 
remboursera dans cinq ans. D’ordinaire, il prête de l’argent à un taux 
d'intérêt de 10 % composé trimestriellement. I] désire savoir quelle est 
la valeur actuelle de l’effet en sa possession. La Figure 2.5 représente 
l'affichage correspondant à la mise en œuvre du programme de calcul 
de la valeur actualisée, et la Figure 2.6 la liste de ce programme. 
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VALEUR ACTUALISEE D'UNE CREANCE 


MONTANT À TERME (F) 890090.09 
NOMERE DE FERIODES FAR AN 4.00 
INTERET ANNUEL (%) 10.00 
DUREE EN ANNEES 5.09 
VALEUR ACTUALISEE (F) 48621.990 


—VOULE Z-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


Figure 2.5 : Affichage à l'écran : Valeur actualisée d’une créance 


700 N#="VALEUR ACTUALISEE D'UNE CREANCE" 
FLO) REM. SSSR SEE eee esse 

715 REM FREFARATION 

720 GOSUB 4209 : K=1 

739 REM FARAMETRES A UTILISER 

740 Q1$="INTRODUISEZ LES DONNEES" : @Q2$="" 


750 Q5$ 


"MONTANT À TERME (F)" : GOSUR 6600 

760 Q3+$="NOMBRE DE FERIODES PAR AN" : GOSUR 446400 
770 Q3#$="INTERET ANNUEL (%)" : GOSUR 6600 

7939 Q5+$#$="DUREE EN ANNEES" : GOSUR 6600 

799 REM CALCULS 

800 PRINT : FRINT'VALEUR ACTUALISEE (F)";TAER(26) 
619 A=FAR(1)/(1+FAR(S) /100/FAR (2) )T(FAR(2) #FAR(4)) 
820 A=INT(A#100+.5)/100 

830 PRINT USING"'#H#H#H#4#.H#"; A 

6855 REM UN AUTRE CALCUL ? 

640 Q2#="CALCULER" : GOSUER 3409 

950 IF NO$="N" THEN END ELSE GOTO 690 


Figure 2.6 : Liste du programme : Valeur actualisée d’une créance 
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VALEUR ACTUALISÉE D’UNE CRÉANCE 
À TERME ÉCHELONNÉ 


Description 


L'exemple précédent concernait le calcul de la valeur actualisée d’une 
créance destinée à être honorée en une seule fois. Le présent 
programme vous permettra d'obtenir la valeur actualisée d’une créance 
qui fait l’ objet de versements échelonnés. Supposons, par exemple, que 
Simone ait acheté votre voiture et vous la paie en trois ans à raison de 
400 F par mois. Au bout d’un an, elle vous offre de régler sa dette en 
vous versant 7 200 F. Vous vous demandez si vous devez accepter. Ce 
programme vous donnera la réponse. Vous accepterez l’offre si la valeur 
actualisée de votre créance est inférieure à 7 200 F. 

Vous ferez intervenir le montant de la vente, le nombre de 
versements effectués par an, le nombre d’années durant lesquelles ces 
versements seraient effectués et le taux d'intérêt correspondant au 
crédit ainsi consenti. Ici encore on considère que le nombre des 
versements effectués par an et le nombre des périodes de composition 
des intérêts sont les mêmes. 


Exemple 


Ayant placé son capital à 10 %, Jacqueline reçoit chaque mois 
3 200 F. Elle veut connaître la valeur actuelle de sa créance, qui sera 
remboursée en dix ans. La Figure 2.7 montre l'affichage correspondant 
à cet exemple, et la Figure 2.8 est la liste complète du programme. 
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860 
870 
880 
885 
890 
900 
905 
910 
920 
930 
940 
950 
960 
970 
980 
9970 
1000 
1010 
1020 
1025 
1030 
1040 
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VAL ACTUAL D'’UNE CREANCE À TERME ECHEL 


MONT D'UN VERSEMENT (F) 3200. 00 
NBRE DE VERSEMNTS PAR AN 12.00 
TAUX D'’INTERET ANNUEL (2) 10.00 
NOMBRE D ANNEES 10.00 
VALEUR ACTUALISEE (F) 242151.00 
—VOULEZ:-VOUS 
CALCULER 


DE NOUVEAU O OÙ N ?0 


| RP rfi HE ANS | 
Figure 2.7 : Affichage à l'écran : 
Valeur actualisée d’une créance à terme échelonné 


REM === eee rss se 
N$="VAL ACTUAL D'UNE CREANCE À TERME ECHEL" 
RM = 
REM PREPARATION 
GOSUB 6200 :K=1 
REM PARAMETRES A UTILISER 
G1$="INTRODUISEZ LES DONNEES" Q2$="" 
G3$="MONT D'UN VERSEMENT (F)" GOSUB 6600 
Q3$="NBRE DE VERSEMNTS PAR AN" : GOSUB 6600 
Q3$="TAUX D'INTERET ANNUEL (%)* : GOSUB 6600 
G3$="NOMBRE D'ANNEES" : GOSUB 6600 
REM CALCULS 
PRINT : PRINT'"'VALEUR ACTUALISEE (F)"; TAB(28) 
A=0 
FOR 1=1 TO PAR(2) #PAR(4) 
A=A+PAR (1) / ((1+PAR(S) /100/PAR(2)) 1) 

NEXT I 

A=INT(A#100+.5)/100 

PRINT USING'H#H#4#HH#HH#H#. #H# "5 A 

REM UN AUTRE CALCUL 7? 

G2$="CALCULER" : GOSUB 3400 

IF NO$="N" THEN END ELSE GOTO 860 


Figure 2.8: Liste du programme : 
Valeur actualisée d'une créance à terme échelonné 
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VERSEMENTS NÉCESSAIRES 
À LA CONSTITUTION D'UN CAPITAL DONNÉ 


Description 


Ce programme permet de déterminer le montant des versements 
réguliers aboutissant à la constitution d’un capital de valeur donnée. 
Ainsi on pourra calculer le montant des versements indispensables 
pour la réalisation d’un projet de vacances ou pour le remplacement 
d'un élément d'équipement ménager, ou pour la constitution d’un 
pécule en vue d’une dépense prévisible. Dans de tels cas, vous ferez 
intervenir le montant de la somme à réunir, le nombre de versements 
effectués par an, le taux de l’intérêt annuel que rapportera votre argent 
et le nombre d’années au bout desquelles vous en aurez besoin. On a 
posé comme hypothèse que le nombre des versements et celui des 
périodes de composition de l’intérêt étaient les mêmes. 


Exemple 


Robert a l'intention d’effectuer des versements mensuels pour consti- 
tuer un capital destiné, le moment venu, à financer les études de sa 
fille. Il évalue à 320 000 F la somme nécessaire et prévoit d'effectuer ces 
versements pendant dix-huit ans, sur un livret qui lui rapportera 
8,5 %. L'affichage à l'écran concernant cet exemple se trouve Figure 
2.9 et la liste du programme Figure 2.10. 
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VERSMNTS NECES A LA CONST D'UN CAF DONNE 


MONTANT DU CAPITAL (F) 320090. 00 


NERE DE VERSEMENTS PAR AN 12.00 
TAUX D'INTERET ANNUEL (%) 8.59 
NOMBRE D'ANNEES 18.00 
MONT DE CHAQUE VERSMT (F) 430.682 


—VOULE Z-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


Figure 2.9: Affichage à l'écran : 
Versements nécessaires à la constitution d’un capital donné 


1060 N$="VERSMNTS NECES A LA CONST D'UN CAP DONNE" 
1070. REM: === Ses eme smsees 

1080 GOSUER 4200 : K=1 

1090 REM PARAMETRES A UTILISER 


1100 QG1#="INTRODUISEZ LES DONNEES" : @2#$="" 
1110 Q3#="MONTANT DU CAPITAL (F)" : GOSUR 4690 


1120 Q3+#="NBRE DE VERSEMENTS PAR AN" : GOSUR 46400 
1130 Q3S$="TAUX D'’INTERET ANNUEL (%)" : GOSUR 4400 
1140 Q3$="NOMERE D'ANNEES" : GOSUR 4600 

1150 REM CALCULS 

1160 PRINT : FRINT'MONT DE CHAQUE VERSMT (F)";TAR(28) 
1170 I=PAR(S) /100/PAR (2) 

11680 Q=PAR (2) #*PAR (4) 

1190 A=PAR(1)#1/((1+1)7T@-1) 

1200 A=INT (A#100+.5) /100 

1210 PRINT USING'###HHH#.H##":; A 

1215 REM UN AUTRE CALCUL ? 

1220 QG2+$#="CALCULER" : GOSUR 3400 

1230 IF NO$="N" THEN END ELSE GOTO 1950 


Figure 2.10: Liste du programme: 
Versements nécessaires à la constitution d’un capital donné 
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RETRAITS DE FONDS 


Description 


Vous utiliserez ce programme pour savoir pendant combien de temps 
vous pourrez effectuer des retraits d’un montant donné avant que votre 
compte bancaire ne soit à découvert. Il vous faudra faire intervenir le 
montant du dépôt initial, le nombre de retraits effectués par an, le taux 
de l’intérêt que donnent les sommes restantes et le montant de chaque 
retrait. Ici encore nous considérons que le nombre de retraits effectués 
annuellement est égal au nombre de périodes de composition de 
l'intérêt. 

Si le montant du retrait est inférieur à celui des intérêts, votre 
compte bancaire s’accroîtra au lieu de tendre à être débiteur. Dans ce 
cas, le programme affichera le message : SOLDE CROISSANT. L’opé- 
ration peut être longue, l’ordinateur effectuant autant de cycles de 
calcul qu’il est nécessaire pour obtenir un solde égal à zéro. 


Exemple 


Jacques et Jeanne Jamin ont l'intention de prendre leur retraite. Le 
montant de leur compte bancaire s’élève à 800 000 F et l'intérêt qu’ils 
perçoivent est de 9 %. Ils estiment avoir besoin de 6 400 F par mois. 
Durant combien d’années pourront-ils retirer mensuellement cette 
somme de leur compte? La Figure 2.11 représente l'affichage corres- 
pondant à cet exemple et la Figure 2.12 la liste du programme. 


N#="RETRAIT DE FONOS" 


GOSUR 4200 : K=1 
REM FARAMETRES A UTILISER 


Figure 2.12: Liste du programme : Retrait de fonds 
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RETRAIT DE FONDS 


DEFOT INITIAL (F) 809000. 00 
NBRE DE RETRAITS FAR AN 12.00 
TAUX D'INTERET ANNUEL (%) 9.00 
MONT DES RETRAITS (F) 6400.09 


NOMBRE DE RETRAITS 371.00 
DUREE EN ANNEES 30.972 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


Figure 2.11 : Affichage à l'écran : Retrait de fonds 


Q1$="INTRODUISEZ LES DONNEES" : Q2$="" 
Q3$="DEPOT INITIAL (F)" : S0SUB 6600 
1310 Q3$="NBRE DE RETRAITS FAR AN" : GOSUB 6600 
1320 AQ3$=-"TAUX D'INTERET ANNUEL (%)" : GOGUB 6600 
1350 A3$="MONT DES RETRAITS (F)" : GOSUB 6600 
1340 REM CALCULS 

1350 FRINT : FRINT"NOMBRE DE RETRAITS"; TAB(26) 
1360 A=PAR(1) : Z=1 

1370 A=A+A#FAR(S) /100/PAR (2) -FAR(4) 
1380 IF A<FAR(1) THEN 1400 

1590 PRINT =: PRINT"SOLDE CROISSANT" 
13595 GOTO 1460 

1400 IF A<FAR(4) THEN 1450 

1410 Z=Z+1 

1420 80T0 1370 

1430 PRINT USING'#HH#H#H##H. #4" 57 

1440 PRINT"'DUREE EN ANNEES"; TAB(26) 
1450 PRINT USING'"4#4#4#H#4##. #43 2/12 

1455 REM UN AUTRE CALCUL ? 

1460 R2$="CALCULER" : GOSUB 3400 

1F NO$="N" THEN END ELSE 80TO 1240 


Figure 2.12: Liste du programme : Retrait de fonds (suite) 
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TAUX D’INTÉRÉT D'UN INVESTISSEMENT 


Description 


Le programme utilisé dans cet exemple permettra de déterminer le taux 
de l’intérêt que rapporte un placement lorsqu'on connaît son montant 
intitial et le montant qu’il atteindra en fin d'investissement. Vous 
pourrez ainsi calculer le taux de l’intérêt correspondant à la plus-value 
provenant de la vente d’une maison. Vous ferez aussi intervenir la 
valeur initiale et la valeur actuelle de la maison, le nombre par an des 
périodes de composition de l'intérêt et la durée de l’investissement en 
années. 


Exemple 


Il y a quatre ans, Tante Mame a donné à son courtier, pour 
investissement, la somme de 40 000 F. Elle reçoit maintenant en retour 
72 000 F. Elle désire connaître le taux des intérêts composés trimes- 
triellement correspondant à cet investissement. Les Figures 2.13 et 2.14 
sont respectivement l’affichage et la liste du programme concernant cet 
exemple. 
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TAUX D'INTERET D'UN INVEST 


SOMME INVESTIE (F) 
SOMME FRODUITE (F) 
FERIODES FAR AN 
NOMBRE D'ANNEES 


TAUX D'INTERET ANNUEL « 


x 
ea 


—VOULE Z-VOUS 
LALCULER 
DE NOUVEAU O OÙ N 70 


Figure 2.13 : Affichage à l'écran 


1480 
1490 
1500 
1510 
1520 
1930 
1340 
1550 
1560 
1370 
1580 
1590 
1600 
1610 
1620 
165 

1625 
1640 
1650 


REM = 
N#="TAUX D'INTERET D'UN INV 
REM = 
GOSUB 6200 : K=1 

REM PARAMETRES A UTILISER 


@1+="INTRODUISEZ LES DONNEES" : Q2$="" 


Q53+="SOMME INVESTIE (F)" 3 
@3$="SOMME PRODUITE (F)“* 3: 
Q3+="PERIODES FAR AN" : G0SI 
Q5+= "NOMBRE D'ANNEES" : G0S 
REM CALCULS 

FRINT : PRINT'TAUX D'INTERE 
G=PAR (3) PAR (4) 

1=C(CPAR (2) /FAR(1))"(1/0) -1) 
I=INT(I#100+.5)/100 

PRINT USING"'H#H#H####. HH 3; TI 
REM UN AUTRE CALCUL 7 
@2+="CALCULER" : GOSUR 3400 


IF NO$="N" THEN END ELSE GOTO 1480 


ISSEMENT 


40000.00 
72000.00 
4.00 
4.00 


14.97 


: Taux d'intérêt d’un investissement 


ESTISSEMENT" 


GOSUR 6600 
GOSUB 6600 
UB 6600 
UB 6600 


T ANNUEL (%)"; TAB(28) 


#100%FAR(S) 


Figure 2.14: Liste du programme : Taux d'intérêt d'un investissement 
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VALEUR ACTUELLE NETTE, 
PRODUITS DISPONIBLES BRUTS 


Description 


L'analyse en valeur actuelle nette (VAN) permet de déterminer si un 
investissement est valable. Une VAN positive, pour un taux d'intérêt 
donné, justifie le bien-fondé d’un investissement. 

Ce programme vous servira à établir la valeur actuelle d’une série de 
produits disponibles. Ce peut être, pour chaque période, des produits 
différents. Vous mettrez le programme en œuvre en prenant en compte 
l'investissement initial et le taux d'intérêt correspondant. Le pro- 
gramme vous demandera alors de faire intervenir le montant de 
chaque produit sous forme de nombres positifs ou négatifs selon que les 
sommes correspondantes seront reçues ou déboursées. On mettra fin à 
cette opération en frappant la touche O (zéro). 


Exemple 


Justine peut acheter 40 000 F un effet de commerce, qui, sur 5 ans, lui 
permettrait de percevoir annuellement 4000 F, 12 000 F, 12 000 F, 
12 000 F, puis 8 000 F. Elle souhaite que son capital lui rapporte un 
intérêt annuel de 12 %. Quelle est la valeur actuelle nette de 
l'investissement qu’elle envisage? Le résultat affiché Figure 2.15 est 
négatif, ce qui indique que le rendement de 12 % n’est pas atteint; en 
conséquence, Justine ne doit pas acquérir cet effet. La liste complète du 
programme est donnée par la Figure 2.16. 


N#="VAL ACT NETTE, FRODUITS DISPONIBLE BRUTS" 
REM 

DIM FV(100) 

GOSUB 6200 : K=1 

REM FARAMETRES À UTILISER 

@1+="INTRODUISEZ LES DONNEES" : @2#5="" 


Q3S+= "SOMME INVESTIE (F)" : GOSUB 4600 
ZE="TAUX D'INTERET ANNUEL (%)" : GOSUB 6600 
@1#=" INTRODUISEZ LES PROD DISF ANNUELS" 
Q2$="ENREGISTRES" 

Q3$="TAFEZ © APRES ACHEVEMENT" 

GOSUR 5000 

J=10 


Figure 2.16 : Liste du programme : 
Valeur actuelle nette, produits disponibles bruts 
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VAL ACT NETTE, FRODUITS DISFONIBLE HRUTS 


SOMME INVESTIE (F) 49090.00 
TAUX D INTERET ANNUEL (%) 12.00 
VALEUR ACTUELLE NETTE —6155.2 


FROD DISFON ? 4000 
FROD DISFON 7 12000 
FROD DISFON 7 12000 
FROD DISFON 7 12006 
FROD JISFON 7? 8000 
FROD DISFON 7? © 


VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O0 OÙ N 70 


Figure 2.15 : Affichage à l'écran : 
Valeur actuelle nette, produits disponibles bruts 


1800 FOR I=1 TO 100 

1810 LOCATE 1,9 

1820 FRINT"FROD DISFON “"+STR#(I) 5" ! 
1830 LOUATE 14,J 

1940 INFUT FV(I) 

1850 IF FV(I)=0 THEN 1890 

1860 J=J+1 

1870 IF J=16 THEN J=10 

1880 NEXT I 

1490 NFV=-FAR (1) 

1900 FCR I=1 TO 100 

1910 NFV=NPU+PV(I) / (1+FAR(2)/100 "I 
19720 NEXT I 

1920 LOCATE 1,6 

1940 PRINT : PRINT'VALEUR ACTUELLE NET: E":;TAR(28) 
1950 A=INT (NFV#100+.5)/100 

1960 FRINT USING'HHHHHE#.HH":A 

1970 FOR I=1 TO 100 

1980 FV(I)=0 

1990 NEXT I 

2000 U2+="CALCULER" : GOSUR 3490 

2010 IF NO#="N" THEN END ELSE GOTO 1700 


Figure 2.16 : Liste du programme : 
Valeur actuelle nette, produits disponibles bruts (suite) 
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DÉLAI DE DOUBLEMENT 


Description 


Ce programme servira à calculer le temps nécessaire pour qu’un capital 
investi double de valeur. Pour l'utiliser, il faut faire intervenir le taux 
d'intérêt et le nombre annuel de ses périodes de composition. 


Exemple 


Frédéric est titulaire d’un compte bancaire qui lui rapporte un intérêt 
annuel de 12 % composé trimestriellement. Combien faudra-t-il d’an- 
nées pour qu’un capital de 40 000 F déposé sur son compte ait doublé 
de valeur? L'affichage fournissant la réponse est donné par la 
Figure 2.17 et la liste du programme par la Figure 2.18. 
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DELAI DE DOUBLEMENT 


PERIODES FAR AN 4.00 
TAUX D'INTERET ANNUEL (%4) 12.00 
TEMFS FOUR DOUBLER (ANNEES) 5.86 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU OQ OÙ N ?0 


Figure 2.17 : Affichage à l'écran : Délai de doublement 


N$="DELAI DE DOUBLEMENT" 


GOSUB 6200 : K=1 

REM FARAMETRES A UTILISER 

Q1$="INTRODUISEZ LES DONNEES" : Q2$="" 
Q3$="PERIODES PAR AN" : GOSUB 6600 

Q3S$="TAUX D'INTERET ANNIEL (%)" : GOSUB 6600 

REM CALCULS 

PRINT 3: FRINT"'TEMPS POUR DOUBLER (ANNÉES) "; TAB (28) 
I=PAR (2)/100/PAR(1) 


Y=LOG (2) / (PAR(1)#LOG(I+1)) 
Y=INT(Y#100+.5)/100 

PRINT USING'S#HH#H HE. HE" 3 Y 

REM UN AUTRE CALCUL ? 
Q2$="CALCULER" : GOSUB 3400 

IF NO$="N" THEN END ELSE GOTO 2050 


Figure 2.18 : Liste du programme : Délai de doublemeni 
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TAUX D'INTÉRÊT ÉQUIVALENT 


Description 


Dans la plupart des programmes de ce chapitre, on a posé comme 
hypothèse que le nombre des périodes de composition de l'intérêt 
correspond au nombre de versements effectués. Dans les cas où cette 
hypothèse ne convient pas, le présent programme permet de définir un 
taux d'intérêt équivalent. L'utilisation de ce programme nécessitera la 
prise en considération du taux d'intérêt annuel, du nombre de périodes 
de composition et du nombre de versements effectués par an. Le 
programme effectuera alors le calcul du taux d'intérêt équivalent qui 
sera celui que vous prendrez en compte. 


Exemple 


Vous faites des versements mensuels sur un compte de dépôt et vous 
souhaitez connaître le montant qu’atteindra votre investissement à une 
date donnée. L'intérêt pour ce compte est de 12 % l’an, composé par 
trimestre. Comme il est indiqué Figure 2.19, le tauxd’intérêt équivalent 
est de 11,88 %. C’est ce taux que vous devrez utiliser pour obtenir la 
solution cherchée lorsque vous mettrez en œuvre le programme de 
calcul de l’état d’un compte constitué par des dépôts réguliers. La liste 
du programme de calcul de l'intérêt équivalent est donnée par la 
Figure 2.20. 
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2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
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TAUX D'INTERET EBUIVALENT 


TAUX D'INTERET ANNUEL (%) 2.00 
NBRE DE FERIODES INITIAL 4.00 
NOUVEAU NBRE DE PERIODES 12.00. 
TAUX D'INTERET EQUIVALENT 11.68 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N 70 


Figure 2.19 : Affichage à l'écran : Taux d'intérêt équivalent 


REM === SES een rene ns 

N#="TAUX D'INTERET EQUIVALENT" 

REM: ESS SSSR SRE SSSR orne 

GOSUBR 6200 : K=1 

REM FARAMETRES A UTILISER 

Q1+="INTRODUISEZ LES DONNEES" : Q2#="" 
Q3S$="TAUX D'INTERET ANNUEL (%)" : GOSUB 6600 
QS+="NBRE DE FERIODES INITIAL” : GOSUB 4600 
Q3S$="NOUVEAU NBRE DE FERIODES® : GOSUB 6600 
I=PFAR(1). : Q2=PAR(2) : Q1=FAR(S) 
I1EQ=@1#(1+1/100/@2) *(@2/01) -@1 

PRINT : FRINT"TAUX D'INTERET EQUIVALENT";TAB(28) 
PRINT USING"#####R, #4"; IED#100 
Q2$="CALCULER" : GOSUB 3400 

IF NO$="N” THEN END ELSE GOTO 2210 


Figure 2.20 : Liste du programme : Taux d'intérêt équivalent 
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CATALOGUE DE PROGRAMMES FINANCIERS 


Toutes les listes des programmes de ce chapitre ont des lignes 
numérotées de manière distincte. Si vous rassemblez tous ces program- 
mes sur une seule cassette, vous pourrez utiliser le programme- 
catalogue figurant ici pour mettre en œuvre l’un ou l’autre d’entre eux. 
Ce catalogue est constitué de telle manière qu’il vous suffit pour cela de 
presser une seule touche. 

Rappelez-vous que l’utilisation d’un catalogue vous oblige à rempla- 
cer l'instruction END à la fin de la liste de chaque programme par 
l'instruction RETURN. Il vous faudra d’abord charger en mémoire vos 
programmes financiers, puis frapper au clavier la liste du programme 
de catalogue. Sauvegardez ensuite le tout au moyen de la commande 
SAVE. Vous trouverez le catalogue Figure 2.21. La liste du programme 
qui permet de l'obtenir est donnée par la Figure 2.22. 

Lorsque vous en avez fini avec un programme financier, vous pouvez 
revenir au BASIC pour charger un autre programme en tapant la 
touche de réinitialisation. 
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ETAT PREVISIONNEL D'UN COMFTE 

ET FREV D'UN CFT CONST FAR DEF REG 
VALEUR ACTUALISEE D'UNE CREANCE 

= VAL ACT D'UNE CREANCE A TERME ECH 
VERS NECS A LA CONST D'UN CAF DON 
= RETRAIT DE FONDS 

TAUX D'INT D'UN INVESTISSEMENT 

VAL ACT NET, FRODUITS DISF ERUTS 
DELAI DE DOURLEMENT 

TAUX D'INTERET EQUIVALENT 


CID URANE= 
OI CU 


CHOISISSEZ LE PROGRAMME : _ 


Figure 2.21 : Affichage à l'écran : Catalogue de programmes financiers 


LOOLREM SEE SR een 

110 Nt="FROGFAMMES FINANCIERS" 

120 REM -----------— 

130 GOSUB 6200 

140 REM DEFINITION DU CHAMP DU CATALOGUE 

150 X#(1)="ETAT PREVISIONNEL D'UN COMPTE® 

160 X$(2)="ET FREV D'UN CPT CONST PAR DEP REG* 
170 X#(3)="VALEUR ACTUALISEE D'UNE CREANCE" 
190 X#(4)="VAL ACT D'UNE CREANCE À TERME ECH" 
190 XF(5)="VERS NECS A LA CONST D'UN CAP DON"“ 
240 X#(6)="RETRAIT DE FONDS" 

210 X#(7)="TAUX D'INT D'UN INVESTISSEMENT" 

ZZO X#(8)="VAL ACT NET, FRODUITS DISP BRUTS" 
230 X$(9)="DELAI DE DOUBLEMENT" 

Z49 X#(10)="TAUX D'INTERET EQUIVALENT" 

245 REM AFFICHAGE DU CATALOGUE 

250 Z=10 : GOSUR 7000 

239 REM CHOIX DU FROGRAMME 

260 ON X GOSUR 780,490,690,860,1050,1240,14G0,1660,2020,21G0 
270 GOTO 100 


Figure 2.22 : Liste du programme : Catalogue de programmes financiers 
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PROGRAMMES DE 
GESTION COURANTE 


Dans ce chapitre figurent dix programmes d’aide à la gestion. Ils vous 
permettent d'établir des tableaux d'amortissement, de décider de 
l'importance d’une commande et de résoudre divers autres problèmes 
concernant les affaires. 

Par exemple, si vous lancez une affaire commerciale, si vous 
organisez un gala de bienfaisance, le programme de calcul du seuil de 
rentabilité vous indiquera le nombre d'articles ou de billets de 
participation que vous devez vendre pour obtenir un bénéfice. Si vous 
êtes commerçant ou si vous employez un représentant de commerce, le 
programme de commission commerciale déterminera la commission 
correspondant à un volume donné de ventes. Le programme de 
rémunération du travail avec heures supplémentaires simplifiera le 
calcul du salaire correspondant à ce cas. Ce programme permet 
d'ajouter la paie en heures supplémentaires au traitement de base, de 
manière à déterminer le salaire global. Un programme d’aide à la 
décision vous aidera surtout. à distraire vos amis. 


TO7 } 56 programmes 44 
AMORTISSEMENT LINÉRAIRE 


Description 


Ce programme fournit le tableau d’un amortissement proportionnel au 
nombre d'années écoulées. Pour obtenir l’amortissement d’un bien, 
faites intervenir sa valeur comptable actuelle, sa valeur de revente 
estimée et sa durée de vie (en années). Si votre bien a une durée de vie 
supérieure à dix ans, le programme affiche le tableau concernant les dix 
premièrs années puis s'arrête. Lorsque vous êtes prêt à examiner les 
années allant de la onzième à la vingtième, appuyez sur l’une 
quelconque des touches et le tableau concernant ces années vient à 


l'affichage. 


Exemple 


Établissons le tableau d'amortissement d’une machine de bureau. La 
valeur actuelle de cette machine est de 40 000 F. Nous envisageons 
d'utiliser cette machine pendant six ans et de la revendre alors 8 000 F. 
La Figure 3.1 montre l’affichage du tableau d'amortissement. La Figure 
3.2 donne la liste du programme qui permet de l'obtenir. 


N#="AMORTISSEMENT LINEAIRE" 


GOSUB 48200 : 
REM PARAMETRES A UTILISER 


Figure 3.2 : Liste du programme : Amortissement linéaire 
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AMURTISSEMENT LINEAIRE 


VAL COMPTABLE ACTUELLE(F) 40000. 00 
VALEUR DE REVENTE(F) 8000.00 
DUREE DE VIE EN ANNÉES 6.00 


ANNEES AMORT(F) VALEUR(F; 
1 5333.33 354668.70 
2 5333.33 29333.30 
3 5333.33 24000.00 
4 5333.33 18466.70 
5 9333.33 13333.30 
& 5335.33 8000.00 


-VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O0 OÙ N ?0 


Figure 3.1 : Affichage à l'écran : Amortissement linéaire 


330 Q1$="INTRODUISEZ LES DONNEES" : @2$="" 

340 O3+="VAL COMPTABLE ACTUELLE (F)" : BOSUB 6600 
350 O3$="VALEUR DE REVENTE(F)" : EOSUB 6600 

360 03$="DUREE DE VIE EN ANNEES" : BOSUB 6600 
370 REM AFFICHAGE DU TABLEAU DE L'AMORTISSEMENT 
380 D=(PAR(1)-FAR(2)) /PAR(3) 

390 PRINT 

400 PRINT"'ANNEES  AMORT(F) VALEUR(F)" 

419 FOR A=1 TO PAR(3) 

420 PRINT A; TAB (6); 

430 PRINT USING"#H4#H#4#H3#HH#. ##" 5 D, PAR (1) -D*A 

440 IF A<>12 THEN 470 

445 REM ON ATTEND LA FRAPPE D'UNE TOUCHE 

450 GOSUB 7400 

455 REM ON REVIENT AU DEPART 

460 LOCATE 1,8 

470 NEXT A 

480 02$="CALCULER" : GOSUB 3400 

490 IF NO$="N" THEN END ELSE GOTO 280 


Figure 3.2 : Liste du programme : Amortissement linéaire (suite) 
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AMORTISSEMENT DÉGRESSIF 


Description 


Ce programme permet d'établir facilement des tableaux utilisant la 
méthode du bilan dégressif qui est une méthode d'amortissement 
accéléré. Les méthodes d'amortissement accéléré sont souvent utilisées 
pour obtenir un meilleur traitement fiscal que celui obtenu par 
utilisation des méthodes d'amortissement linéaire. La méthode du 
bilan dégressif consiste à multiplier la valeur comptable restante d'un 
bien par un facteur d'accélération et à la diviser ensuite par la durée de 
vie du bien (en années). Vous ferez intervenir la valeur comptable 
initiale du bien, sa durée de vie et le facteur d'accélération. Les facteurs 
d'accélération usuels sont 150 %, 175 % et 200 %; la valeur de revente 
n'est pas utilisée. 


Exemple 


Déterminons l’amortissement de la machine de bureau de l’exemple 
précédent par la méthode du bilan dégressif. Pour cet exemple nous 
utiliserons un facteur d'accélération de 150 %. Le tableau d’amortis- 
sement est donné par la Figure 3.3 et la liste du programme par la 
Figure 3.4. 


O NF="AMORTISSEMENT DEGRESSIF" 


GOSUB 4200 
REM PARAMETRES A UTILISER 


Figure 3.4 : Liste du programme : Amortissement dégressif 
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AMNORTISSEMENT DEGRESSIF 


VAL COMPTABLE (F) 40000. 00 
DUREE DE VIE (ANN) &.00 
% DE DEPREC ACCELER 150.00 


ANNEE AMORT (F) VALEUR (F) 
10000.00 30000. 00 
7300.00 22500. 00 
3625.00 146875.00 
4218.75 124656.:0 
3164.08 9492.19 
2373.05 7119.14 


CURE 


—VOULE Z--VOUS 
CALCULER 
DE NOUVEAU O OÙ N TO 


Figure 3.3 : Affichage à l'écran : Amortissement dégressif 


550 
560 
370 
580 
570 
&üû 
419 
&z0 
&zû 
640 
850 
&6ù 
879 
680 
685 
6790 
700 
719 
715 
720 
7:0 


01$="INTRODUISEZ LES DONNEES" : OQ2$="" 
OS$="VAL COMPTABLE (F)" : GOSUB 4600 
O35$="DUREE DE VIE (ANN)" : GOSUB 6400 

BS$=" % DE DEFREC ACCELER" : GOSUB 6400 
REM AFFICHAGE DU TABLEAU DE L'AMORTISSEMENT 


RV=PAR (1) 
PRINT 
FRINT'"ANNEE AMORT (F) VALEUR (F)" 


FOR A=i TO PAR(2) 
PRINT A; TAB (6); 
D=RV#PAR (3) /100/PAR (2) 

PRINT USING'4#H##HEHE. HU: D, RV-D 
RV=RV-D 

IF A£>12 THEN 719 

REM ON ATTEND 

GOSUE 7400 

LOCATE i,8 

NEXT A 

REM UN AUTRE CALCUL 7 
Q2$="CALCULER" : GOSUB 3400 

IF NO$="N" THEN END ELSE SOFO 500 


Figure 3.4 : Liste du programme : Amortissement dégressif (suite) 
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AMORTISSEMENT PAR ANNÉES CUMULÉES 


Description 


Voici une deuxième méthode d'amortissement accéléré : l’amortisse- 
ment par années cumulées. Dans cette méthode d'amortissement, on 
multiplie la valeur comptable restante par le rapport entre le nombre 
d'années à courir et le nombre des années cumulées. Si la durée de vie 
d’un bien est de cinq ans la somme des années de vie est 


5+4+3+2+1= 15. 


Il vous faudra là encore faire intervenir la valeur comptable actuelle, 
la valeur de revente et la durée de vie du bien. Votre ordinateur 
simplifiera considérablement l’opération. 


Exemple 


Établissons un tableau d'amortissement par années cumulées pour le 
copieur de bureau des exemples précédents. Ce tableau est celui de la 
Figure 3.5; la liste du programme correspondant apparaît Figu- 
re 3.6. 


740 REM 
750 N$="AMDRTISSEMENT FAR ANNEES CUMULEES" 


760 
770 GOSUB 46200 : 
780 REM FARAMETRES À UTILISER 


Figure 3.6 : Liste du programme : Amortissement par années cumulées 
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AMORTISSEMENT FAR ANNEES CUMULEES 


VALEUR COMPTABLE (F) 49000.00 
VALEUR DE REVENTE (F) 8960.00 
DUREE DE VIE (ANNEES) 6.00 


ANNEE AMORT(F)  VALEUR(F) 
9142.88 50857.19 
7619.95 23258.10 
6095.24 17142.90 
4571.43 12571.40 
2047.82 9523.81 
1525.81 8000.00 


DU bruitgm 


- VOULE Z--VouS 
CALCULER 
LE NOUVEAU Q OÙ N ?0 


Figure 3.5 : Affichage à l’écran : Amortissement par années cumulées 


01$="INTRODUISEZ LES DONNEES" : O2$="" 
Q3$="VALEUR COMPTABLE (F)" : GOSUB 4400 
03$="VALEUR DE REVENTE (F)" : GOSUB 68600 
03$="DUREE DE VIE (ANNEES)" : GOSUB 6600 
REM AFFICHAGE DU TABLEAU D'AMORTISSEMENT 
D=PAR(1)-PAR(2) 

RV=PFAR (1) 

PRINT 

PRINT"ANNEE AMORT (F)  VALEUR(F)" 

FOR A=1 TO PAR(S) 
D1=D*#(PFAR(S)+1-A) / (PAR(3S) # (PAR(3Z) +1) /2) 


PRINT À; TAB(6) : 
PRINT USING"###4##4#4#. ##": D1,RV-D1 
RV=RV-D1 


IF A<>12 THEN 960 

GOSUB 7400 

LOCATE 1,8 

NEXT A 

REM UN AUTRE CALCUL 7? 
Q2$="CALCULER" : GOSUB 3400 

IF NO$="N" THEN END ELSE GOTO 749 


Figure 3.6 : Liste du programme : 
Amortissement par années cumulées (suite) 
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SEUIL DE RENTABILITÉ 


Description 


Ce programme permet à une entreprise commerciale de déterminer, 
pour un type de produit, le nombre d’articles qu’il est nécessaire de 
vendre pour atteindre le seuil de rentabilité. A cette fin, on prendra en 
compte les frais généraux de l’entreprise, le prix de revient du produit à 
l'unité (fabrication ou achat) et le prix de vente à l’unité. 


Exemple 


Henri achète des articles 24 F chaque et projette de les vendre par 
correspondance 48 F. S’il a l'intention de dépenser 12 000F en 
publicité, combien d’articles doit-il vendre pour atteindre le seuil de 
rentabilité? L'affichage à l'écran concernant cet exemple est donné par 
la Figure 3.7 et la liste du programme par la Figure 3.8. 


51 Programmes de gestion courante 


SEUIL DE RENTABILITE 


FRAIS GENERAUX (F) 12000. 00 
COUT PAR UNITE 24.00 
PRIX DE VENTE (F) 48.00 


SEUIL DE RENTABILITE -— 500 UNITES 


ve 


—VOULEZ-VOUS 
CALCULER 
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Figure 3.7 : Affichage à l’écran : Seuil de rentabilité 


990 REM 

1000 N$="SEUIL DE RENTABILITE" 

1010 

1020 GOSUR 48200 : 

1030 REM PARAMETRES A UTILISER 

1040 G1$="INTRODUISEZ LES DONNEES" : Q2$="" 
1050 G3$="FRAIS GENERAUX(F)" : GOSUR 4600 
1060 B3$="COUT PAR UNITE" : GOSUR 4400 

1070 Q3$="PRIX DE VENTE (F)" : GOSUB 6600 
1080 PRINT 


1090 PRINT"'SEUIL DE RENTABILITE -> "; 

1100 US=INT (PAR(1)/(PFAR(S)-FAR(2))#100+.5)/100 
1110 PRINT USING'"#####": US; : FRINT" UNITES" 
1115 REM UN AUTRE CALCUL 7? 

1120 O2$="CALCULER" : GOSUB 3400 

1130 IF NO$="N" THEN END ELSE GOTO 990 


Figure 3.8 : Liste du programme : Seuil de rentabilité 
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OPTIMISATION DES ORDRES D'ACHAT 


Description 


Les économistes ont mis au point une méthode permettant aux chefs 
d'entreprise de calculer le nombre optimum d’articles que doit 
comporter une commande. Ce programme exécute pour vous un tel 
calcul. Pour l’utiliser, il vous faut faire intervenir le prix de revient 
d’un ordre d’achat, le nombre d’articles nécessaires pour un an et le 
prix annuel courant par article. Le prix courant est obtenu en 
multipliant le taux de rentabilité de votre entreprise par le prix d’achat 
par article. 


Exemple 


Raymond est le directeur de production d’une petite entreprise. Il 
souhaite calculer le nombre optimal de pompes devant figurer sur 
chacune des commandes effectuées pour les besoins de l’usine. Cette 
usine utilise 15 000 pompes par an. Le prix courant d’une pompe est de 
40 F et le coût d’un ordre d’achat de 600 F. Quelle est la quantité 
optimale de pompes par commande? La Figure 3.9 donne le résultat de 
l'analyse de Raymond et la Figure 3.10 la liste du programme 
correspondant. 
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OPTIMISATION DES ORDRES D'ACHAT 


COUT D'UN ORD D'ACHAT (F) 600.00 
NOMBRE D'ARTICLES FAR AN 15000. 00 
PRIX COURANT FAR UNITE 40.00 


NBRE D'ARTICL FAR COMMANDE= 670 UNITES 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


Figure 3.9 : Affichage à l'écran : Optimisation des ordres d'achat 


1140 REM, = === == ns 

1150 N$="OFTIMISATION DES ORDRES D'ACHAT" 

1160 REM -<----- 

1170 GOSUR 6200 : K=1 

1180 REM FARAMETRES À UTILISER 

1190 G1$="INTRODUISEZ LES DONNEES" : @2$="" 

1200 Q5$="COUT D'UN CRD D'ACHAT (F)" :GOSUB 6600 
1210 Q3$="NOMBRE D'ARTICLES FAR AN" : GOSUR 6400 
1220 QZ$="FRIX COURANT FAR UNITE" : GOSUR 64600 
1230 REM CALCUL ET AFFICHAGE 

1240 PRINT 

1250 NAC=INT(SOR (T#FAR(1)#FAR (2) /FAR (3) )) 

1260 FRINT"'NBRE D'ARTICL FAR COMMANDE="; 

1270 PRINT USING"#####":NAC; 

1290 PRINT" UNITES" 

1285 REM UN AUTRE CAILCUL 7 

1290 Q2$="CALCULER" : GOSUR 3400 

iS00 IF NO$="N" THEN END ELSE GOTO 1140 


Figure 3.10 : Liste du programme : Optimisation des ordres d'achat 
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PRIX DE VENTE AVEC REMISE 


Description 


Ce programme vous servira à calculer ce que vous coûtera, toutes taxes 
comprises, un article vendu avec remise. Indications à fournir : le prix 
hors taxe, le pourcentage de remise et le taux de la taxe. 


Exemple 


Elisabeth désire acheter un récepteur de radio vendu avec un rabais de 
15 %. Le prix de détail du récepteur est de 2 800 F et les taxes à la vente 
de 33,33 %. Combien Elisabeth aura-t-elle à payer? La Figure 3.11 
représente l'affichage à l’écran pour cet exemple et la Figure 3.12 celui 
de la liste du programme. 


N$="FRIX DE VENTE AVEC REMISE" 


GOSUR 8260 : 
REM FARAMETRES À UTILISER 


Figure 3.12: Liste du programme : Prix de vente avec remise 


25 


FRIX DE VENTE AVEC REMISE 


PRIX DE DETAIL (F) 
REMISE (%) 
TAUX DES TAXES (7%) 


PRIX 
REMISE 
TAXE 


TOTAL 


—VOULEZ-VOUS 
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2800.00 
15.00 
33.35 


2800.00 
420.00 
795.25 


3175.25 


Figure 3.11 : Affichage à l'écran : Prix de vente avec remise 


17166 G1$="INTRODUISEZ LES DONNEES" : Q2$="" 
1370 Q3$="PRIX DE DETAIL (F)" : GOSUR 6400 
1380 Q3$="REMISE (%4)" : GOSUB 6600 

1390 GXS$="TAUX DES TAXES (%)" : GOSUR 46600 


1400 REM CALCUL ET AFFICHAGE 
1410 PRINT 


1420 PRINT" FRIX";TAB(2B);: 


1430 PRINT USING"####.##";PAR(1) 


1440 D=FAR (1) #PAR (2) /100 
1450 PRINT" REMISE"; TAB (28); 
1460 PRINT USING"####.##": D 
1470 T=(PAR(1)-D)#FAR(3) /100 
1480 PRINT" TAXE"; TAB (28) : 
1490 PRINT USING"####.##"3:T 
1500 FRINT 

151G PRINT"TOTAL"; TAB (26) : 


1520 PRINT USING"####.##"3PAR(1)-D+T 


1525 REM UN AUTRE CALCUL 7? 


1330 Q2+$="CALCULER" : GOSUR 3400 


1540 IF NO$="N" THEN END ELSE GOTO 1310 


N 


Figure 3.12 : Liste du programme : Prix de vente avec remise (suite) 
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COÛT MOYEN PONDÉRÉ 


Description 


Il est fréquent d’avoir à calculer le coût moyen pondéré d’un certain 
nombre d'articles. La méthode de la moyenne pondérée peut être 
utilisée pour obtenir le coût moyen des articles d’un stock lorsqu'il a 
été acheté par lots à des dates et à des prix différents, et aussi la valeur 
d'inventaire lorsque des articles semblables ont été achetés à différents 
prix. 

Ce programme permet de calculer rapidement le coût moyen pondéré 
de plusieurs séries d’articles. Introduisez pour chaque article la valeur à 
l'unité suivie par le nombre d'unités. Pour terminer, frappez 0 pour la 
valeur à l’unité et O pour le nombre d'unités. 


Exemple 


Louis procède à l’achat de stocks d’une maison d'électronique. Il a 
l'intention de calculer le coût moyen des lots. Il a acheté quatre lots à 
80 F chaque, quatre lots à 320 F chaque et deux lots à 480 F chaque. 
Les Figures 3.13 et 3.14 montrent le résultat du calcul et la liste du 
programme. 


N#="VALEUR MOYENNE FONDEREE 


DIM D(100,1) 

GOSURB 4200 =: K=1 

REM FARAMETRES À UTILISER 

FRINT"INTRODUISEZ LES DONNEES, TAFEZ ENTREE" 


Figure 3.14 : Liste du programme : Valeur moyenne pondérée 
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VALEUR MOYENNE FONDEREE 


INTRODUISEZ LES DONNEES, TAFEZ ENTREE 


VALEUR UNITES 
7 80 ? 4 
7? 320 ? 4 
? 480 ? 2 
?r 0 7 0 
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Figure 3.13 : Affichage à l'écran : Valeur moyenne pondérée 


1620 
1830 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1719 
1720 
1750 
1740 
1750 
1760 
1770 
1780 
1799 
1800 
1810 
1815 
1820 
1830 


Figure 3.14 : Liste du programme : Valeur moyenne pondérée (suite) 


PRINT =: FRINT"'VALEUR UNITES" 
ND=0 

J=7 

tOCATE 1,9 : FRINT" ue 
LOCATE 1,9 : INFUT D(ND,0) 
LOCATE 12,9 : INFUT D(ND,1) 

IF D(ND,1)=0 THEN 1720 

ND=ND+1 

J=J+1 

IF J=17 THEN 1640 ELSE 14650 

REM CALCULS ET AFFICHAGE 

AVE=O : U=0 

FOR 1=0 TO ND-1 
AVE=AVE+D(I1,0)#D{1,1) 

U=U+D(I,1) 

NEXT I 


AVE=AVE/U 

LOCATE 1,16 

FRINT'LA VALEUR MOYENNE FONDEREE EST:"; 
PRINT USING"######"; AVE 

REM UN AUTRE CALCUL ? 

Q2$="CALCULER" : GOSUB 3400 

IF NO$="N" THEN END ELSE GOTO 1590 
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COMMISSION COMMERCIALE 


Description 


Ce programme permet de calculer la commission due à un agent 
commercial. Prendre en compte la rémunération fixe mensuelle de 
cette personnc, le volume mensuel de ses ventes et sa commission en 
pourcentage. Si le résultat est négatif c’est que le quota n’a pas été 
atteint. 


Exemple 


Samuel Spade a un traitement fixe mensuel de 9 600 F. Il a une 
commission de 6 % sur ses ventes de mobilier. Quelle est sa commis- 
sion pour un mois durant lequel il a vendu pour 200 000 F de meubles ? 
Les Figures 3.15 et 3.16 donnent l'affichage à l’écran du résultat et la 
liste du programme. 
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COMMISSION COMMERCIALE 


FIXE MENSUEL (F) 9600.00 

VENTES MENSUELLES (F) 200000. 00 

COMMISSION (%) 6.09 
MONTANT DE LA COMMISSION 12000. 00 
A FERCEVOIR (FIXE OEFALQUE) 2400.00 
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Figure 3.15 : Affichage à l'écran : Commission commerciale 


N$="COMMISSION COMMERCIALE" 
1960 REM 
1870 GOSUB 6200 : K=1 

1880 REM FARAMETRES À UTILISER 


1890 Q1$="INTROQUISEZ LES DONNEES" : Q2$="" 
1900 Q3$="FIXE MENSUEL (F)" : GOSUB 6600 
1910 Q3$="VENTES MENSUELLES (F)" : GOSUB 6600 


1920 Q35$="COMMISSION (4)" : GOSUB 6600 
1930 REM CALCULS ET AFFICHAGE 

1940 FRINT 

1950 PRINT'MONTANT DE LA COMMISSION"; TAB(30) 

1960 FRINT USING"##H#H##.##"; PAR(2) #FAR(S) /100 

1970 FRINT"A FERCEVOIR (FIXE DEFALQUE)";TAB(30) 
1980 PRINT USING"#####. ##°": PAR (2) #FAR (3) /100-FAR(1) 
1985 REM UN AUTRE CALCUL ? 

1990 Q2$="CALCULER" : GOSUR 3400 

IF NO$="N" THEN END ELSE GOTO 1849 


Figure 3.16 : Liste du programme : Commission commerciale 
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PAIE AVEC HEURES SUPPLÉMENTAIRES 


Description 


Il s’agit ici de calculer aisément le traitement global d’un employé qui 
perçoit une paie en heures supplémentaires en plus de son salaire de 
base. Vous faites intervenir le salaire horaire de base, le coefficient de 
sursalaire et le nombre d’heures réglementaires et d'heures supplémen- 
taires durant lesquelles l'employé a travaillé. 


Exemple 


Antoine, mécanicien, perçoit un salaire horaire de 40 F. Au cours d’une 
semaine particulièrement chargée il effectue ses 39 heures réglemen- 
taires et 12 heures supplémentaires. Vous désirez calculer son traite- 
ment global avec un coefficient de sursalaire de 1,5. Les Figures 3.17 et 
3.18 donnent le résultat du calcul et la liste du programme. 
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FAIE AVEC HEURES SUPFLEMENTAIRES 


SAL HOR DE BASE (F/HS) 40.00 
COEFFICIENT DE SURSALAIRE 1.50 
NOMBRE D'HEURES REGLEMENT 59.00 
NOMBRE D'HEURES SUPFLEM 12.00 
SALAIRE DE BASE 1560.00 
HEURES SUPPLEMENTAIRES 720.00 
SALAIRE TOTAL 2280.00 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


Figure 3.17 : Affichage à l'écran : Paie avec heures supplémentaires 


2OLOTREM' == ESS == esse 

2020 N#="PAIE AVEC HEURES SUPPLEMENTAIRES" 

2050: REM. == STE RS ESS eee eee 

2040 GOSUR 6200 : K=1 

2050 REM PARAMETRES À UTILISER 

2060 Q1$5="INTRODUISEZ LES DONNEES" : Q2$="" 

2070 Q3+$="SAL HOR DE BASE (F/HS)" : GOSUR 6600 
2080 Q3$="COEFFICIENT DE SURSALAIRE" : GOSUR 6600 
2090 Q3+="NOMERE D'HEURES REGLEMENT" : GOSUR 6600 
2100 Q3$="NOMERE D'HEURES SUPFLEM" : GOSUR 6600 
2110 REM CALCULS ET AFFICHAGE 

2120 PRINT 

2130 PRINT" SALAIRE DE BASE "; TAR(SO) 

2140 PRINT USING"####.##"; PAR (1) *PAR (3) 

2150 PRINT " HEURES SUPPLEMENTAIRES"; TAB(30) 
2160 PRINT USING"####. ##°": PAR (1) PAR (2) #*PAR (4) 
2170 PRINT" SALAIRE TOTAL'";TAB(SO) 


2180 PRINT USING"####.##"; FAR(1) #PAR (3) +FAR (1) FAR (23 #FAR 4) 
2185 REM UN AUTRE CALCUL 7 

2190 Q2$="CALCULER" : GOSUR %400 

2200 IF NO$="N" THEN END ELSE GOTO 2ù1c 


Figure 3.18 : Liste du programme : Paie avec heures supplémentaires 
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AIDE À LA DÉCISION 


Description 


Enfin, si vous avez encore des problèmes, si vos amis ont des 
problèmes, ce programme est prévu pour vous aider à prendre 
l’importante décision qui change radicalement le cours d’une existence. 
Interrogez votre ordinateur. Mais cette fois, considérez-le comme un 
plaisant partenaire qui amusera vos invités. 


Exemple 


Edmond hésite à se laisser séduire par un projet fort audacieux. En 
l’absence d’une réponse ferme des membres de son conseil, il interroge 
son ordinateur ainsi qu'il est indiqué Figure 3.19. La liste du 
programme est donnée par la Figure 3.20. 


63 


Programmes de gestion courante 


AIDE À LA DECISION 


VEUILLEZ FOSER VOTRE QUESTION 
=>? CE FROJET ABOUTIRA-T-IL 7 
IL VAUT MIEUX QUE VOUS Y CROYIEZ 


—VOULE Z -VOUS 
FOSER UNE QUESTION 
DE NOUVEAU O OÙ N 70 


Figure 3.19 : Affichage à l'écran : Aide à la décision 


N$="AIDE À LA DECISION" 


GOSUR 6200 : K=1 

PRINT"VEUILLEZ POSER VOTRE QUESTION" 
PRINT"=2"; 

INPUT D$ : Y=LEN(D#) 

IF Y<é THEN 2300 

Y=INT(Y/2) : GOTO 2280 

ON Y GOTO 237310,2520,2355:0,2340,2350 
PRINT"'PAS DURANT VOTRE VIE" : GOTO 2360 


PRINT"ALLEZ-Y !" : GOTO 2560 

PRINT"IL VAUT MIEUX QUE VOUS Y CROYIEZ" : GOTO 2360 
PRINT"'RISQUEZ TOUT DE MEME UNE FIECE" : BOTO Z*%60 
PRINT'"'ARRETEZ TOUT-RAFIDEMENT" 

Q2+$+="POSER UNE QUESTION" : GOSUH 7400 

IF NO$="N" THEN END ELSE GOTO 2210 


Figure 3.20: Liste du programme : Aide à la décision 
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CATALOGUE DE PROGRAMMES DE GESTION 


Si vous effectuez la sauvegarde de tous les programmes de ce chapitre 
sur une seule cassette, joignez-y le programme qui en réalise le 
catalogue. Vous choisirez ensuite vos programmes en utilisant les 
touches chiffres de votre clavier. N'oubliez pas de remplacer l’instruc- 
tion END de chaque programme par une instruction RETURN. Avant 
d'utiliser le catalogue, reportez-vous aux instructions d’utilisation d’un 
catalogue au Chapitre 2. Les Figures 3.21 et 3.22 représentent le 
catalogue et la liste du programme qui permet de l’obtenir. 
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AMORTISSEMENT LINEAIRE 
AMORTISSEMENT DEGRESSIF 
AMORTISSEMENT FAR AN CUMULEELS 
SEUIL DE RENTABILITE 
OPTIMISATION DES ORDRES D'ACHAT 
PRIX DE VENTE AVEC REMISE 

COUT MOYEN FONDERE 

COMMISSION COMMERCIALE 

PAIE AVEC HEURES SUFFLEMENTAIRES 
AIDE À LA DECISION 


OLD NUM BRHN 


CHOISISSEZ LE FROGRAMME : 


Figure 3.21 : Affichage à l'écran : Catalogue de programmes de gestion 


N$='"PFROGRAMMES DE GESTION" 
120 REM === ses 

150 GOSUR 62700 

14 REM DEFINITION DU CHAMP DU CATALOGUE 

150 X&(1)="AMORTISSEMENT LINEAIRE”" 

140 X$F(Z)="AMORTISSEMENT DEGRESSIF" 

X#(7)="AMORTISSEMENT PAR AN CUMULEES" 

X#(4)="SEUIL DE RENTABILITE" 

X$5(5)="OPTIMISATION DES ORDRES D'ACHAT" 

X#(6)="FRIX DE VENTE AVEC REMISE" 

X$(7)="COUT MOYEN PONDERE" 

X#5(8)="COMMISSION COMMERCIALE" 

X$#(9)2="PAIE AVEC HEURES SUPPLEMENTAIRES" 

X#(10)="AIDE À LA DECISION" 

Z=i10 : GOSUR 7000 

ON X GOSUR 240,500,740,9970,1140,1310,1550,1840,2010,2210 
GOTO 100 


Figure 3.22: Liste du programme : Catalogue de programmes de gestion 


A 


PROGRAMMES 
DE GESTION 
IMMOBILIÈRE 


Huit programmes de gestion immobilière figurent dans ce chapitre. Ils 
réalisent pour vous, entre autres calculs pratiques, des tableaux de 
remboursement d’hypothèques. 

Parmi les programmes présentés, deux sont particulièrement utiles. 
Le premier, Acquisition d’une maison, vous servira à déterminer la 
gamme de prix correspondant à vos possibilités financières en vue de 
l’achat d’une maison, en tenant compte des modalités des prêts 
bancaires. Le second programme est appelé Remboursement accéléré. 
Une petite augmentation de vos versements mensuels peut réduire 
radicalement les intérêts que vous aurez à débourser pour l'achat à 
crédit d’une maison. Voyez la Figure 4.8 et vous en serez vite 
convaincu. 

Ce chapitre, comme les précédents, comprend un programme 
catalogue qui vous permettra de faire votre choix parmi l’ensemble des 
programmes de gestion immobilière que vous allez constituer. 
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SOUS-PROGRAMMES DE GESTION IMMOBILIÈRE 


Les programmes de ce chapitre font usage de trois sous-programmes 
généraux. Chargez tout d’abord SUBLIB puis tapez les sous-program- 
mes de la Figure 4.1 et sauvegardez l’ensemble sous un nouveau nom. 
Lorsque vous serez prêt à utiliser un programme, vous devrez charger 
ces sous-programmes en mémoire, puis introduire le programme et 
ensuite effectuer la sauvegarde de l’ensemble. Si vous voulez utiliser le 
catalogue pour effectuer un choix, sauvegardez tous les programmes de 
ce chapitre, ainsi que les sous-programmes, dans le même fichier. Les 
listes des sous-programmes communs sont exposées Figure 4.1. Ils 
servent à préparer l'introduction de données pour les calculs de 
versement, de paiement et pour les calculs de bilan d’un prêt. 
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AFFEL DES FARAMETRES 
IN=TAUX D'INTERET ANNUEL 
AN=NO DES ANNEES 
MO=MONTANT DU PRET 


Ni=1Z#AN : I1=IN/100/12 =: V=1/(1+11) 

F=MO#11/(1-V"N1) 

RE TURN 

REM 

REM INTRODUCTION DES DONNEES POUR LE CALCUL DES VERSEMENTS 


QG1#="DEFINITION DES PARAMETRES" : Q2$="" 
D3$="MONTANT DE L'EMPRUNT (F)" : GOSUB 6600 
Q3$="TAUX D'INTERET ANNUEL (4)* : GOSUB 6600 
OS+="DUREE DU FRET (ANNEES)" : GOSUB 6600 
MO=FAR (1) 
IN=FAR (2) 

5 AN=PAR (3) 
RE TURN 


REM 
REM 
REM AFFEL DES FARAMETRES 
j REM F=VERSEMENT 
REM IN=TAUX D'INTERET ANNUEL 
REM N=NOMBRE DE VERSEMENTS 


REM MO=MONTANT DU PRET 
FOR I=1i TO Z 
MO=MO-F+IN/12/100#M0 
NEXT I 

RETURN 


Figure 4.1 : Liste du programme : 
Sous-programme de gestion immobilière 
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VERSEMENTS MENSUELS 


Description 


Ce programme permet de connaître le montant des versements 
nécessaires pour l’amortissement complet d’un prêt. Vous devez donner 
le montant du prêt, le taux d’intérêt annuel, et la durée du prêt (en 
années). 


Exemple 


Daniel et Danièle vont acheter une maison 800 000 F. Ils ont l’inten- 
ton de faire un versement comptant de 200 000 F et de payer le reste 
du montant de leur achat par remboursement d’un prêt à 12 % sur 
30 ans. A combien s’élèveront leurs versements mensuels? Les Figu- 
res 4.2 et 4.3 montrent l'affichage à l’écran et la liste du programme 
concernant cet exemple. 
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CALCUL DES VERSEMENTS MENSUELS 


MONTANT DE L'EMFRUNT (F) 600000.00 


TAUX D'’INTERET ANNUEL (%) 12-00 
DUREE DU FRET (ANNEES) 30.00 
LE VERSEMENT MENSUEL EST 6171.68 


-VOULE Z-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


Figure 4.2 : Affichage à l'écran : Calcul des versements mensuels 


N#="CALCUL DES VERSEMENTS MENSUELS" 


GOSUR 6200 

REM INTRODUCTION DES FARAMETRES 

GOSUR 360 

REM CALCUL DES VERSEMENTS 

GOSUR 250 

PRINT 

FRINT"'LE VERSEMENT MENSUEL EST'";TAR(28) 
FRINT USING"'HHH#H#H#.H#H";F 


REM UN AUTRE CALCUL 7 
D2$="CALCULER" : GOSUR 3400 
IF NO$="N" THEN END ELSE GOTO 670 


Figure 4.3 : Liste du programme : Calcul des versements mensuels 
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BILAN D'UNE HYPOTHÈQUE 


Description 


Ce programme affiche sur l'écran le tableau correspondant au bilan 
d’une hypothèque pour l’année que vous choisissez. Prenez en compte 
le montant du prêt, le taux d'intérêt annuel, la durée de ce prêt et 
l’année pour laquelle vous voulez que le tableau soit affiché. Il vous est 
ainsi possible de retrouver rapidement, pour n'importe quelle année, le 
montant de ce que vous remboursez en intérêt et capital. L'intérêt versé 
est déductible de l'impôt sur le revenu. 


Exemple 


L’hypothèque dont fait l’objet la maison de Samuel et de Solange est de 
480 000 F. Le taux d'intérêt annuel du prêt est de 11,5 % et la durée de 
ce dernier de 25 ans. Samuel et Solange veulent savoir combien ils 
rembourseront en intérêt et capital au cours de la sixième année de leur 
emprunt. La Figure 4.4 donne l'affichage à l’écran pour cet exemple. La 
liste du programme est exposée Figure 4.5. 
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AlLAN D UNE HYFOTHEQUE 


MONTANT DE L'EMFRUNT (F) 480601, 60 


TAUX D'INTERET ANNUEL (%) 11.20 

DURÉE DJ FRET (ANNÉES) 23.060 

ANNE &. 00 
“MOIS CAFITAL INTEKET &ILAN 
61.00 494.58 4:84.49 457017.0ûu 


62.00 499.32 456518.09 


are 504.11 456014.00 
508.934 4553505. 00 
515.81 454991.00 
66.05 518.74 
67.00 523.71 
58.0 528.75 
67.00 933.80 452686.00 
70.00 538. 91 22347.0, 
71.00 544.08 451803. 00 
72.00 549.29 451254. 059 


-VOUI-E Z-VOUS 
CALCULER 
DE NOUVEAU O OÙ N 70 


Figure 4.4 : Affichage à l'écran : Bilan d’une hypothèque 


N#="RILAN D'UNE HYFOTHEQUE" 


GOSUR 6200 : 

REM FARAMETRES DU FRET 

GOSUB :60 

Q3#$= "ANNEE" 

GOSUR 6600 : Z=FAR(4) 

GOSUE 250 

Z=12#7-12 

GOSUE 470 

FRINT" MOIS CAPITAL INTÉRET 
FOR J=1 TO 12 

11=IN/12/100M0 : F1=F-I1 : MC=MO-F1 
FRINT USING''######4#. #13 Z+1,P1,11,M0 
Z=2+1 

NEXT J 

Q2$="CALCULER" : GOSUB 3400 

IF NO$="N" THEN END ELSE GOTO 700 


Figure 4.5 : Liste du programme : Bilan d'une hypothèque 
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BILAN COURANT D'UN PRÊT 


Description 


Ce programme permet d'obtenir le bilan courant d’un prêt. 1l sert à 
calculer le montant du paiement comptant qui correspondrait à la 
période de crédit écoulée depuis le début de l’emprunt. On suppose que 
tous les versements antérieurs ont été effectués dans les délais 
convenus. Vous ferez intervenir le montant de l’hypothèque, le taux de 
l'intérêt, la durée globale du prêt et le nombre des versements qui font 
l’objet du calcul de bilan. Le programme ne donnera sa réponse 
qu'après un certain délai. 


Exemple 


Le montant de l’hypothèque souscrite par Jean est de 720 000 F. Son 
prêt lui a été accordé pour 30 ans à un taux d'intérêt annuel de 9 %. Il 
désire calculer le bilan courant de son prêt à la fin de la cinquième 
année. Les Figures 4.6 et 4.7 montrent l'affichage et la liste du 
programme de bilan courant. 
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ESLAN COURANT 


MONTAMT DE L'EMPRUNT :F) 720000.00 


TAUX D'INTERET ANNUEL (7) 9.00 
DUREE DU FRET (ANNEES) 50.00 
NOMBRE DE VERSEMENTS 69.00 
VERSEMENT MENSUEL 5795.31 
BILAN AFRES 60  VERSMTS 690.335. 00 


-- VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


Figure 4.6 : Affichage à l’écran : Bilan courant 


880 

890 N$="HILAN COURANT" 

700 

910 GOSUH 6200 

920 GOSUR 360 

930 OS#$='"NOMBRE DE VERSEMENTS" 
940 GOSUEH 6600 : Z=FAR(4) 

950 GOSUER 250 

960 GOSUE 470 

970 PRINT 

980 FRINT'VERSEMENT MENSUEL ": TAH (28) : 


990 PRINT USING'"'#####4#. #H#"35FP 

1000 FRINT'HILAN APRÈS ‘";Z;" VERSMTS"; AR(ZB): 
1010 PRINT USING'######. #41: MO 

1020 Q2#="CALCULER" : GOSLE 400 

1050 IF NO$="N" THEN END ELSE GOTD 688ü 


Figure 4.7 : Liste du programme : Bilan courant 


TO7 | 56 programmes 76 
REMBOURSEMENT ACCÉLÉRÉ 


Description 


Le programme concerne l’effet sur une hypothèque d’une augmentation 
du montant des versements mensuels. Cette augmentation réduira à la 
fois la durée du prêt et aussi le montant des intérêts déboursés. 


Exemple 


Sept ans après avoir contracté un emprunt d’une durée de trente ans, 
Carole envisage d'augmenter de 800F le montant des versements 
mensuels pour son remboursement. Elle voudrait savoir quelle écono- 
mie elle réaliserait ainsi. Elle a emprunté 480 000 F à 9,75 % pour une 
durée de 30 ans. La Figure 4.8 donne la réponse: plus de 300 000 F. 


N$="REMEOURSEMENT ACCÉLERE" 


GOSUE 6200 : 

REM FARAMETRES DU FRET 

GOSUR 360 

QZ#$= "ANNEE DE L'AUGMENTATION" 
GOSUE 6600 : Z=FAR(4) 

GOSUEH 250 

Z=12#7-12 

Q3$="MONTANT DE L'AUGMENT :F)" 
GOSUER 6600 : AU=FAR (5) 

REM CALCUL 

TI=O : BAL=O 

FOR J=1 TO Z 

IA=IN/12/100#M0 : Pi=F-i1 : MO=MO-F1 
TI=TI+IL 2: TF=TF+FI 

NEXT J 


Figure 4.9 : Liste du programme : Remboursement accéléré 
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REMEOURSEMENT ACCELERE 


MONTANT DE L'EMFRUNT (F) 48000û.00 


TAUX D'INTERET ANNUEL (%) 7.75 
DUREE DU FRET (ANNEES) 39.00 
ANNEE DE à AUGMENTATION 7.00 
MONTANT DE L'AUGMENT (F2: aùs. 00 
ANNEES DE REMBSMT Zu.:8 
INTERETS TOTAUX VERSES 675447.00 
GAIN SUR LES INTERETS 229178. 00 


-VOULEZ-VOLS 
CALCULER 
DE NOUVEAU Q OÙ N ?0 


Figure 4.8 : Affichage à l'écran : Remboursement accéléré 


1210 REM CALCUL DE L'INTERET SANS AUGMENTATION 
1220 TI?2=0 : MO2=FAR(1) 

1230 FOR J=1 TQ 1Z*AN 

1240 12=1N/12/1G0xM02 : F2-F-12 : NIZ2<NC2-P2 
12950 TIZ2=T12+12 

1260 NEXT J 

1270 REM CALCUL DE L'INTERET AVEC L'AUGMENTATION 
1280 J=0 

1290 I1=IN/12/100%M0 : TI1=T1+11 

13500 P1=P+AU-I1 : TF=TF+F1 

1310 MO=MO-F1 

1320 J=J+i 

1330 IF MO:O THEN 1790 

1340 PRINT 

1350 PRINT'ANNEES DE REMBSMT";TAR (28) ; 

1360 PRINT USING''4#4#F###.##': PAR (4)+J/12-1 
1370 PRINT"INTERETS TOTAUX VERSES":1ABR(28); 
1380 PRINT USING "*###4#F#f##. ##'": TL 

1590 PRINT"'GAIN SUR LES INTEKRETS";TAR(Z8) : 
1400 PRINT USING'A######.#4#":TIZ-TI 

1410 Q2$="CALCULER" : GOSUR 3400 

1420 IF NO$="N" THEN END ELSE GOTO 1040 


Figure 4.9 : Liste du programme : Remboursement accéléré (suite, 
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CALCUL DU REMBOURSEMENT GLOBAL 


Description 


Les hypothèques sont généralement établies de manière à pouvoir être 
levées grâce à un versement global effectué au terme d’une période 
donnée. Ce programme vous permet de calculer ce versement. Vous 
devez faire intervenir le montant du prêt, sa durée d'amortissement, le 
taux d'intérêt annuel et le nombre d’années au bout desquelles le 
versement global pourra être fait. 


Exemple 


Max a une hypothèque dont le montant est de 500 000 F avec un taux 
d'intérêt annuel de 11 %. L’amortissement de la dette est calculé sur 
30 ans et Max doit lever son hypothèque au terme d’une période de 
10 ans. Combien devra-t-il verser? Les Figures 4.10 et 4.11 montrent 
l'affichage et la liste du programme correspondant à ce cas. 
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REMBOURSEMENT GLOBAL 


MONTANT DE L'EMFRUNT (F) 300000. 00 


TAUX D'INTERET ANNUEL (7%) 11.00 
DUREE DU FRET (ANNEES) 30.00 
ANNEE DU REMBOURSEMENT 10.00 
VERSEMENT MENSUEL 4761.62 


VERSEMENT GLOBAL 
APRES 160 ANS 461311.00 


: VOULEZ - CUS 
CALCULER 
dE NÜUJYEAU O OU N TU 


Figure 4.10 : Affichage à l'écran : Calcul de remboursement global 


14:50 
1440 
1450 : 
146 C5SUR 68200 : kel 

1365 REM FARAMÈTRES DU FRET 

1470 GOSUR 3540 

1480 Q3#+="ANNEE DU REMBOURSEMENT ‘ 

1490 GOSUR 64600 : Z=12*PAR (4) 

1500 GOSURB 250 

1519 GOSUE 470 

1520 FRINT 

1530 FRINT'VERSEMENT MENSUEL";TAE (28) ; 
1546 FRINT USING'####4#4#. ##"35P 

1550 FRINT : FRINT'VERSEMENT GLOBAL" 
1560 PFRINT"'APRES ";Z/12;" ANS"; TAR(28): 
1370 FRINT USING'######. #4": MD 

1380 Q2$="CALCULER" : GOSUB 3400 

1590 IF NO$="N" THEN END ELSE GOTO 1430 


Figure 4.11 : Liste du programme : Calcul de remboursement global 
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ACQUISITION D'UNE MAISON 


Description 


Ce programme permet de déterminer la somme maximale qu’une 
banque acceptera de vous prêter pour l’achat d’une maison. Pour le 
mettre en œuvre, vous ferez intervenir le taux d'intérêt annuel et la 
durée possible du prêt, votre revenu annuel, le montant annuel cstimé 
des taxes et assurances, le pourcentage de votre revenu brut que la 
banque prendra en considération pour calculer le montant total de vos 
versements mensuels, et le pourcentage que représente le versement au 
comptant que vous effectuerez. 


Exemple 


Louis et Elisabeth veulent acheter une maison. Le taux d'intérêt 
habituel pour les prêts immobiliers sur 30 ans est de 13,5 %. Le revenu 
annuel du couple est de 400 000 F. Ils envisagent de faire un versement 
comptant représentant 20 % du prix de la maison. Ils estiment à 
19 200 F le montant annuel des taxes et assurances. Le banquier leur 
fait savoir que le montant de chacun de leurs remboursements 
mensuels ne devra pas excéder 35 % de leur revenu. L'affichage des 
données de ce problème et du résultat obtenu se trouve Figure 4.12. La 
Figure 4.13 donne la liste du programme correspondant. 
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+ 


ACHAT D'UNE MAISON 


FAUX 9 INIERET ANNLEL (CZ) 17.50 
DUREE DU FRET (ANNEES) 9.00 
REVENU 6N DE L'ACHÉIEUKR 400000. 00 
TAXES ET ASSU ANN ESTIM 17200. 00 


% DU REVENU MENS ACDLEFTE 35.00 

% VERSE AU COMFYANT 20.00 
MONTANT LU FH IPANCEMENT 8”8867.00 
FRIX 1698580. 00 


- VOULEZ -VOUS 
CALCULCR 
DE NOUVEAU O OÙ N ?0 


Figure 4.12 : Affichage à l'écran : Achat d’une maison 


LÉOO 'REM ESS See 

1619 N$="ACHAT D'UNE MAISON" 

JO 20r REMISES SE ESS ST TT ee 

1620 GOSUR 6200 : K=1 

1646 Q1$="INTRODUISEZ LES DONNEES" O25="" 

1650 QZT#$="TAUX D'INTERET ANNUEL iZ)" : GOSUR 6600 
1660 Q3 "DUREE DU FRET (ANNEES)" : GOSUR 6600 
1670 OS REVENU AN DE L'ACHETEUR" : GOSUR 66400 
1550 G:$="TAXES ET ASSU ANN ESTIM" : GOSUR 6600 
1490 OT#="%X DU REVENU MENS ACCEFTE" : GOUSUR 6600 
1700 Q5$="X VERSE AU COMPTANT" : GOSUR 6600 

1710 FIKINT 

1/2û REM CALCUL DU VERSEMENT 

1756 F=FAR(S) /10O4FAR (35) /12-FAR (4) 7/1 

1740 REM CALCUL DU MONTANT DU FINANCEMENT 

1759 FE=FAR(1)/100/12 : N1=124FARI2) : V=1/(1+R2) 
1760 MD=F'#(1-V°N1)/RE 

1770 FRINT'MONTANT DU FINANCEMENT": TAR (23) : 

1760 FRINT USING®HEH#HHAHE. 4H": MO 

1795 FRINT"'FRIX":TAR(ZS) : 

HO PRINT USING'HH#HHHHH AH 3 MC / <1-Fhié: /iout 
1919 ULF="CALCULER" : GOSURB 3410 

iLQ [IF NDS="N" THEN END ELSE GoT0 1690 


Figure 4.13: Liste du programme : Achat d’une maison 
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HYPOTHÈQUE AVEC HYPOTHÈQUE 
EN SECOND RANG 


Description 


Programme à utiliser pour calculer ce que coûtera au total une maison 
faisant l’objet de deux hypothèques successives. Pour cela vous prendrez 
en compte le prix d’achat de la maison, la somme disponible pour un 
versement comptant et le montant de la première hypothèque. Vous 
ferez intervenir aussi le taux d'intérêt de la première et de la seconde 
hypothèque et la durée de la première. Nous considérons que la seconde 
fait l’objet de versements mensuels calculés sur la seule base de 
l'intérêt. 


Exemple 


Jeanne a économisé 80 000 F comme versement comptant sur le prix 
d’une maison. La maison coûte 560 000 F; Jeanne envisage de prendre 
une première hypothèque pour 360 000 F à 12% d'intérêt annuel 
pendant 30 ans et une deuxième à 16 % d'intérêt. Quelle somme 
paiera-t-elle en tout ? L'affichage du résultat est donné Figure 4.14 et la 
liste du programme Figure 4.15. 


REM = 
0 N#="HYSGIHEGUE EN SECOND" 


REM ce 

GUSLIE 6200 : kel 

@1#="INTRODUCTION DES DONNEES" : Qz$="" 
GS5= "PRIX D'ACHAT (Fi" : GOSUR 6600 


Figure 4.15 : Liste du programme : Hypothèque en second 
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1890 
1S00 
1910 


1920 € 


1730 
1945 
1950 
1940 
170 
1980 
199€ 
20GG 
2610 
+020 
PAURTE] 
2540 
2050 
2060 
270 
2080 
2499 
2100 


Programmes de gestion immobilière 


nef OTHEGUE EN 3ECUND 


PRIX D'ACHAT (F) 56909000. 60 
COMFIANT DISFONIBLE (F) SCO, OC 
FREMIERE HYFOTHEQUE {F) 2360010. 00 


FREMIER TAUX (2) ir. G0 
FREMIER TERME (ANNEES) Zü.00 
SECUND : AUX (7%) 16. Gn 
VERSEMENT (FREMIER) 3793.01 
VERSEMENT (SECOND) 1600, 00 
VERSEMENT TOTAL 5303.01 


-VOULE Z -VOUS 
CALCULÉES 
CE NOUVEAU O OÙ N 70 


Figure 4.14 : Affichage à l’écran : Hypothèque en second 


(Fi 3: GOSUR 660 
"3: GCSUE 6600 
FREMIER TAUX (%)" : 550SUR 8660û 
"FREMIER TERME (CANNELS)" : GCSUE 6600 
="SECOND TAUX (%)" : GOSUER 860c 
FRINT 
MO=F'AR (CZ) 3 IN=PFAR(4) : AN=FAR(S) 
REM CALCUL DU PREMIER VERSEMENT 
GOSUER 230 
CRINT'ULRSEMENT (FREMIER)":TAR (28): 
PRINT USING" ##F# #44. HU; PF 
EM CALCUL DU SECOND VERSEMENT 
IF FAR(2)EPAR(1)-PAR(S) THEN GOT 25540 
PRINT'SELCONDE HYPCTHEQUE F'AS NECESSAIRE" 
GOTO 2090 
FRINT'VERSEMENT (SECOND) "; TAR (28): 
P2= {PAR (1) -PAR (2) -FAR(S))#FAR (6) /100/12 
PRINT US (NG'A##R#H 4. HF 5 PT 
FRINT'UERSEMENT TOTAL"; TAB (28); 
FRINT USING"H#H#HA#IE. #43 P+P2 
Q2#="CALCULER" : GOSUR 7409 
IF NO$="N" THEN END ELSE GOTO 18:09 


Figure 4.15 : Liste du programme : Hypothèque en second (suite) 


TO7 | 56 programmes 684 


ÉTUDE DE RENTABILITÉ 


Description 


Ce programme sera très utile pour l'étude de la rentabilité des 
investissements immobiliers. Vous pourrez l'utiliser pour obtenir le 
montant des versements mensuels et le produit disponible concernant 
une propriété de rapport. (Nous ne tiendrons pas compte de l’amortis- 
sement afférent au paiement des taxes.) Il vous faudra faire intervenir 
le montant du prêt et sa durée, le taux d'intérêt annuel, l’assurance, les 
taxes et les frais d'entretien. Vous devrez faire intervenir aussi le 
revenu mensuel souhaité. 


Exemple 


Hubert projette d'acheter une maison qu'il a l'intention de louer 
3 800 F par mois. La première hypothèque sera de 640 000 F amortie 
en 30 ans à 12 % d'intérêt. Il estime le coût annuel de l'assurance à 
4 000 F, les impôts fonciers à 12 800 F et les frais d’entretien à 3 200 F. 
Quel devra être le montant des versements mensuels et quel sera le 
produit disponible? Les Figures 4.16 et 4.17 donnent l’affichage à 
l'écran et la liste du programme pour cet exemple. 
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110 
2120 
2130 
2140 
2150 
2169 
2170 
2180 
2190 
2200 
2205 
2210 
2220 
2250 
2240 
2250 
2260 
Z2270 
22680 
2290 


Programmes de gestion immobilière 


ETUDE DE RENTABILITE 


DUREE DU FRET (ANNEES) - 
ASSURANCE ANNUELLE F3 4600.00 
IMPOTS ANNUELS (F) 12805. 20 
FRAIS D ENT ANNUELS (F} T290.00 
REVENU MENSUEL (F) 8ü0. 00 
VERSEMENT MENSUEL 6585.15 
FRODUIT DISF MENS. —4449S. 79 


—VOULEZ-VQOUS 
CALCULER 
DE NOUVEAU O OÙ N 70 


Figure 4.16 : Affichage à l'écran : Étude de rentabilité 


N#$="ETUDE DE RENTABRILITE" 


GOSUE 6200 : 

REM INTRODUCTION DES FARAMETRES 

GOSUE 360 

D3+#="ASSURANCE ANNUELLE (F)" : GOUSUR é6e0v 
D3$="IMFOTS ANNUELS (F)" : GOSUR 6600 
OS$="FRAIS D'ENT ANNUELS iF)" : GOSUR 6650 
Q5$="REVENU MENSUEL (F)" : GOSUER 6650 

REM CALCUL DU VERSEMENT 

GOSUE 250 

FRINT 

FRINT'"'VERSEMENT MENSUEL";TAE(ZB) ; 

PRINT USING'#H4#H4#H4##F4F. HAE" 5 PF 

FRINT"FRODUIT DISP MENS. “; TAB(Z3); 

PD=FAR (7) -F- (FAR (4) +FAR (5) +PF8R (6) ),12 
PRINT USING"#H##4#+4#4#. #4": FD 

Q?$="CALCULER" : GOSUR :400 

IF NO$="N" THEN END ELSE GOTU 2115 


Figure 4.17 : Liste du programme : Étude de rentabilité 
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CATALOGUE DE PROGRAMMES 
DE GESTION IMMOBILIÈRE 


Comme précédemment, nous pourrons associer les programmes de ce 
chapitre pour constituer un ensemble d’analyse de gestion immobilière 
contrôlé à partir d’un catalogue. L'affichage du catalogue et la liste du 
programme correspondant sont donnés par les Figures 4.18 et 4.19. 
N'oubliez pas de remplacer l’instruction END de chaque programme 
par une instruction RETURN. La méthode à employer pour constituer 
un tel ensemble a été exposée dans le Chapitre 2. 
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= VERSEMENTS MENSUELS 
BILAN D'UNE HYFOTHEQUE 
BILAN COURANT 
REMEOURSEMENT ACCELERE 
REMBOURSEMENT GLOBAL 
ACHAT D'UNE MAISON 
HYPFOTHEQUE EN SECOND 
ETUDE DE RENTABILITE 


DYUOMBUN— 


CHOISISSEZ LE FROGRAMME : 


f 


. 


+ 
Figure 4.18 : Affichage à l'écran : Programmes de gestion immobilière 


N$='"FROGRAMMES DE GESTION IMMORILIERE" 


GOSUR 6200 

X$(1)="VERSEMENTS MENSUELS" 
X$(2)="BILAN D'UNE HYPFOTHEQUE" 
X#$(3)="BRILAN COURANT" 

X$ (4) ="REMEOURSEMENT ACCELERE" 
X$(5)="REMEOURSEMENT GLOBAL" 
X#$(6)="ACHAT D'UNE MAISON" 

X$ (7) ="HYFOTHEQUE EN SECOND" 


X$ (8)="ETUDE DE RENTABILITE" 

Z=8 : GOSUR 7000 

ON X GOSUR 590,700,880,1049,1420,1600,18:0,2110 
GOTO 100 


Figure 4.19: Liste du programme : Programmes de gestion immobilière 


sn 


PROGRAMMES 
D’ANALYSE 
DE DONNÉES 


Le Chapitre 5 décrit un ensemble de programmes d’analyse qu’on 
utilisera pour traiter et mettre sous forme graphique diverses sortes de 
données. Ces programmes permettent d’effectuer leur introduction en 
mémoire, de les traduire sur l’écran sous forme graphique, et de leur 
appliquer un traitement statistique. Le programme de traitement 
graphique pourra, après mise en œuvre des autres programmes, 
traduire de la même manière les résultats en graphes. 

Les programmes d’analyse de données seront tout particulièrement 
appréciés par les investisseurs. Les divers programmes de lissage 
serviront à atténuer les fluctuations du prix des stocks et à dégager la 
tendance à plus long terme. Ils peuvent aussi être utilisés dans divers 
autres domaines, y compris l’analyse scientifique, le tracé et le lissage 
des courbes ou le traitement des données météo. 

Pour mettre en œuvre les programmes de ce chapitre et des deux 
suivants, 1l vous faudra au préalable entrer en mémoire le programme 
catalogue et les sous-programmes communs additionnels. Vous devrez 
ensuite sauvegarder ces programmes en un seul fichier puis y ajouter 
les autres programmes comme indiqué dans le Chapitre 1. Les pro- 
grammes de ce chapitre commençant par le catalogue, vous n’aurez pas 
à les modifier. 
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CATALOGUE DE PROGRAMMES 
D'ANALYSE DE DONNÉES 


Le fonctionnement de tous les programmes d’analyse de données se fait 
à partir du même tableau et est provoqué à partir du même programme 
catalogue. Le catalogue appelle la liste du programme d'entrée, celle du 
programme graphique et celle de différents programmes d'analyse. 
Pour utiliser à volonté ces programmes vous devez tout d’abord 
introduire les données en mémoire au moyen du programme d’entrée. 
Vous pourrez alors les traiter graphiquement ou procéder à leur 
analyse. Les données introduites sont stockées dans le champ D, alors 
que les données traitées par les programmes d’analyse sont stockées 
dans le champ R. 

Après avoir fait fonctionner chaque programme, revenez au catalo- 
gue. Il vous est alors possible de faire de nouveau l’analyse avec un 
programme différent; vous pouvez traiter les données d'entrée soit 
graphiquement, soit mathématiquement ou faire de concert les deux 
opérations; ou bien vous pouvez introduire de nouvelles données. 

La Figure 5.1 donne l'affichage du catalogue. La Figure 5.2 donne la 
liste du programme correspondant. 
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Programmes d’analyse de données 
6 


IN RODUCTION DES DONNEES 
GRAFHISME 

MOYENNE ET DEVIATION STD 
MOYENNE MORILE SUR 3 POINTS 
MOYENNE MORILE PFONDEREE 
MOYENNE CENTREE SUR 4 FOINTS 
REGRESSION LINEAIRE 


SNCB 


CHOÏSISSEZ LE F'ROGRAMME : _ 


Figure 5.1 : Affichage à l’écran : Programmes d'analyse de données 


N$="FROGRAMMES D'ANALYSE DE DONNEES" 


DiM F(80),R(B80) ,D(80) 

GOSUR 8700 

REM CONSTITUTION DU CATALOGUE 
X#(1)="INTRODUCTION DES DONNEES" 

X$ (2) ="GRAFHISME" 

X$(35)="MOYENNE ET DEVIATION STD" 
X$(4)="MOYENNE MOBILE SUR 3 POINTS" 
X$(S)="MOYENNE MOBILE PONDEREE"* 


X#$(6)="MOYENNE CENTREE SUR 4 POINTS" 
X$(7)="REGRESSION LINEAIRE" 

2=7 : GOSUR 7G00 

ON X GOSUE 699,920,1149,1769,1560,1760,1960 
GOTO 150 


Figure 5.2: Liste du programme : Programmes d'analyse de données 
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SOUS-PROGRAMMES D’ANALYSE DE DONNÉES 


Le programme graphique utilise deux sous-programmes servant à 
l'affichage sur l'écran. L'un trace les axes; l’autre les gradue et traduit 
les données en courbes. Introduisez ces programmes avant de mettre en 
œuvre le programme graphique. La Figure 5.3 donne la liste du 
sous-programme qui trace les axes. 

La Figure 5.4 donne la liste du sous-programme d'étalonnage des 
axes et de tracé des courbes. Ce programme permet d’introduire chaque 
donnée puis d’en effectuer le traitement, ou de faire ces opérations 
simultanément selon l’état de la variable CH $. 


| Programmes d’analyse de données 


REM = 
G REM TRACE DES AXES 

REM = 
CLS 

REM AXE Y 

FOR I=1 TO 21 

LOCATE 6,1 : FRINT® 1" 
NEXT I 

REM ECHELLE SUR L'AXE Y 
FOR I=1 TU 16 STEP 5 

550 LOCATE 6,1 : FRINT"-" 

360 LOCATE 1,1 

365 PRINT USING'###4#":MX— (MX—MN) /4# (1-1) /5 
370 NEXT I 

590 LOCATE 6,21 

285 REM AXE X 

390 FOR I=1 TO 32 

400 PRINT" -"; 

410 NEXT I 

420 FOR 1=8 TO 36 STEF 5 

425 REM MARQUAGE X 

420 LOCATE 1,21 : PRINT"I"; 
440 LOCATE I-1,22 : FRINT 1-7 
450 NEXC I 

460 RETURN 


Figure 5.3: Liste du programme : Tracé des axes 


RE 
REM DÉFINITION DES ECHELLES 

REM A mm 
FOR I=1 FO ND 

F1=21- INT (20% (D (I) —MN) 7 CMX--MN) à 
P2=21-INT 20% (RCI) MN) / (MX MIN) ) 
IF CH$‘}"I" THEN 570 

IF FP1:21 OR Fi£1 THEN GOTO 670 
SS0 LOCATE 143,71 : PRINT'#" 

560 GCTO 6%0, 

5/0 IF CHéi>°R" THEN 610 

SEO IF F2:71 OR P2<1 THEN GGTOQ 670 
290 LUCATE I48,F2 : PRINT"+" 

690 G60TO 650 

610 REM TRACE EN CCMMUN 

620 IF F1:21 OR Fié1 OR F2:21 OR F2<1 THEN 670 
630 LUCATE [+8,P1 : PRINF"«#" 

640 LOCATE I+8,F2 : FRINT'+" 

650 NEXT 1 

6bt RETURN 

#70 ERE=1 : RETURN 

680 RETURN 


Figure 5.4 : Liste du programme : Définition des échelles 
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INTRODUCTION DES DONNÉES 


Description 


Vous utiliserez ce programme pour introduire en mémoire les données 
que les autres programmes pourront alors analyser et transformer en 
courbes. Il vous permet de prendre en compte 32 points. Les données 
sont stockées dans le tableau D (1). Vous frapperez un D pour indiquer 
que l’introduction est terminée. Les dix derniers points introduits au 
clavier sont affichés à l’écran, ce qui facilitera votre travail. N'oubliez 
pas que les opérations de lissage et de traitement graphique ne peuvent 
être pratiquées qu'à partir de données introduites au moyen du 
programme prévu pour cela. 


Exemple 
Anne-Marie veut introduire en machine les données fournies par ses 
expériences de laboratoire. Les données sont les suivantes : 
Point 1 2 3 4 5 6 7 8 9 10 
Donnée 1 3 5 4 5 6 7 8 9 11 


Point 11 12 13 14 15 16 17 18 19 20 
Donnée 12 15 13 14 15 16 15 13 12 12 


Point 21 22 23 24 25 26 27 28 29 30 
Donnée 11 10 7 9 8 7 5 5 4 3 


Point 31 32 
Donnée 3 0 


La Figure 5.5 donne l'affichage et la Figure 5.6 la liste du 
programme d'introduction de données. 
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M) 
790 
716 
720 
Es) 
740 
730 
780 
779 
7830 
790 
800 
G10 
20 
CAS) 
940 
950 
960 
970 
480 
970 
909 
910 


Programmes d'analyse de données 


INFRODUCTION DES DONNEES 


VALEUR 21 ? 31 
VALEUR 32 7? 0 
VALEUR 55 LE) 
VALEUR 25 7 0 
VALEUR 26 FA 
VALEUR 2 75 
VALEUR 289 RS 
VALEUR 2 T 4 
VALEUR 70 P 23 


- INFRODUISEZ LES DONNEES DANS L'OXDRE 
FRACFEZ D AMRES ACHEVEMENT 


Figure 5.5 : Affichage à l'écran : Introduction des données 


REM = 

N$=" INTRODUCTION DES DONNEES" 

REM 

REM PREFARAT ION 

GOSUB 6200 

Q15="INTRODUISEZ LES DONNEES DANG L'OURDRE" 
Q2$="FRAFFEZ D APRES ACHEVEMENT" 


G3#="" : GCSUB 5000 
ND=O 

J=6 

FOR I=1 TO 99 


LOCATE 10,J 

FRINT" 

LOCATE 5,J 
FRINT'VALEUR "3; I: TAR(20) 
INPUT D# 

IF D$="D" THEN 910 
ND=ND+1 
D(I}=VAL(D#) 

J=J+1 

IF J=16 THEN J=6 
NEXT I 

RE TURN 


Figure 5.6 : Liste du programme : Introduction des données 
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GRAPHISME 


Description 


Ce programme permet de traduire en courbes aussi bien les données 
brutes que les données déjà traitées (des données que vous obtiendrez 
en utilisant les programmes d’analyse qui vous sont présentés dans les 
pages suivantes). Vous commanderez au programme de mettre sous 
forme de graphes soit les données nouvellement introduites, soit les 
données traitées par le programme d’analyse, soit les deux types de 
données à la fois en répondant à l’interrogation du programme par I,T 
ou D respectivement. Le symbole O représente les données brutes et le 
symbole + les données traitées. Vous devez aussi définir le minimum et 
le maximum de l’échelle des Y. Si les données utilisées ont des valeurs 
qui se situent hors de l'échelle ainsi fixée, le message DONNÉE HORS 
ÉCHELLE vous sera signifié et il vous faudra redéfinir cette échelle. 
Pour revenir au catalogue, il vous suffira de frapper une touche. 


Exemple 


Traçons le graphe correspondant à l’exemple précédent. Nous fixerons 
la valeur minimum à O et la valeur maximum à 20. Nous choisirons 
l’option I, les données n’ayant pas été traitées. La Figure 5.7 donne le 
graphe affiché sur l’écran et la Figure 5.8 la liste du programme. 
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Programmes d'analyse de données 


920 
950 
940 
950 
955 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1050 
1090 
1100 
1110 
1120 
1130 


1 
1 
I 
I 
1 
1 
1 
1 
1 
I 
1 
I 
1 
I 
1 
I 
I 
1 


TAPEZ UNE TOUCHE FOUR CONTINUER 


Figure 5.7: Affichage à l'écran : Graphisme 


REM == 
N$="GRAPHISME" 

REM 

G2$="INTRODUCTION OÙ TRAITEMENT OÙ LES DEUX" 


O3$="DONNEE (I OÙ T OÙ D)" 
GOSUB 5000 
GOSUB 5400 

IF CH$="1" OR CH$="T" OR CH$="D" THEN 990 ELSE 970 
Qt $= LUE LA : Q2$=" LL 

G3$="CHOISISSEZ L'ECHELLE MAX : " 

GOSUB 5000 : INPUT MX 

Q3$="CHOISISSEZ L'ECHELLE MIN : " 

GOSUB 5000 : INPUT MN 

GOSUB 270 

ERF=0 

GOSUB 470 

IF ERF<>1 THEN 1110 

B1$="DONNEE HORS ECHELLE" 

O2$="CORRIGEZ SVF”" 

GOTO 1000 

LOCATE 1,24 

PRINT"TAFEZ UNE TOUCHE FOUR CONTINUER" 
CH$=INKEYS : IF CH$="" THEN 1130 ELSE RETURN 


Figure 5.8 : Liste du programme : Graphisme 


TO7 / 56 programmes 98 
MOYENNE ET DÉVIATION STANDARD 


Description 


Ce programme sert à calculer la moyenne et la déviation standard pour 
des données entrées en mémoire au moyen du programme d’introduc- 
tion. Pour l'utiliser, il vous suffira de le sélectionner à partir du 
catalogue. 


Exemple 


Anne-Marie veut calculer la moyenne et la déviation standard de 
données de laboratoire. Elle a mis en œuvre le programme et obtient 
l'affichage des résultats : Figure 5.9. Liste du programme 
Figure 5.10. 
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MOYENNE ET DEVIATION STD 


MOYENNE DE DONNEES 
DEVIATION STANDARD 


—POUR CONTINUER FRAPPER UNE TOUCHE 


Figure 5.9 : Affichage à l'écran : Moyenne et déviation standard 


N$="MOYENNE ET DEVIATION STD" 
1160 REM ---—-—————— 2 
1170 GOSUB 6200 

1160 REM CALCUL DE LA MOYENNE 

1190 MO=0 

1200 FOR I=1 TO ND 

1210 MO=MO+D(1) 

1220 NEXT 1 

1230 MO=MO/ND 

1240 REM CALCUL DE LA DEVIATION STD 
1250 SD=0 

1260 FOR 1=1 TO ND 

1270 SD=SD+ (D {I) -MO) “2 

12GO0 NEXT 1 

1290 SD=(SD/ND)*.S 

13500 PRINT'MOYENNE DE DONNEES“ ;TAB (24); 
1310 PRINT USING"######. #4": MO 

1320 PRINT"'DEVIATION STANDARD"; TAB(24); 
1330 PRINT USING"####4##. #4"; SD 

1340 GOSUB 7400 

RETURN 


Figure 5.10 : Liste du programme : Moyenne et déviation standard 
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MOYENNE MOBILE SUR TROIS POINTS 


Description 


Nous examinerons maintenant trois programmes de lissage. Le premier 
effectue un moyennage sur trois points de données introduites dans le 
tableau d’entrée. Les données ayant fait l’objet d’une telle opération de 
lissage sont stockées dans le tableau R(I). Vous pouvez en obtenir 
l'affichage soit sous forme numérique, soit sous forme graphique. Ce 
programme calcule la moyenne des données prises de trois en trois; 
chaque valeur obtenue est utilisée pour effectuer le lissage de proche en 
proche. Lorsque cette opération est effectuée, apparaît sur l'écran la 
question suivante : 


VOULEZ-VOUS AFFICHER LES DONNÉES 


Si vous répondez par O: le programme affiche les données sous 
forme numérique. Vous pourrez tracer le graphe correspondant en 
faisant appel au catalogue principal de manière à utiliser le programme 
graphique. Si vous répondez par N : vous obtenez le catalogue principal 
qui vous permet de mettre immédiatement en œuvre le programme 


graphique. 


Exemple 


Anne-Marie veut appliquer différentes méthodes de lissage à ses 
données de laboratoire. Elle commence par utiliser le programme de 
moyennage sur trois points et obtient le graphe affichant ensemble les 
données introduites et les données traitées. Voir le résultat du lissage 
Figure 5.11. Lorsque la donnée introduite et la donnée résultant du 
lissage sont les mêmes, un seul point figure sur le graphe. La 
Figure 5.12 donne la liste du programme. 
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(l 
= Hd 4 


*+ + 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


* 
ESS SES ES tnt tes D 
1 6 11 16 21 26 31 


TAPEZ UNE TOUCHE POUR CONTINUER 


Figure 5.11 : Affichage à l'écran : Moyenne mobile sur 3 points 


N$="MOYENNE MOBILE SUR 3 POINTS" 
1590 REM 
1390 GOSUB 6200 

1400 REM ON PLACE LE RESULTAT EN R(I) 
1410 R(1)=0 : R(2)=0 : R(3)=0 

1420 FOR I1=4 TO ND 

1430 R(1)=(D(I-3)+D(1-2)+D(1-1))/3 
1440 NEXT I 

1450 U1$="VOULEZ-VOUS AFFICHER LA" 
1460 Q2$="DONNE (0 OÙ N)" 

1470 Q3$="" : GOSUB 5000 

1480 GOSUB 7800 

1490 IF NO$="N" THEN RETURN 

1500 CLS 

1510 FOR I=4 TO ND 

1520 PRINT R(I), 

1550 NEXT I! 

1540 GOSUB 7400 

RETURN 


Figure 5.12 : Liste du programme : Moyenne mobile sur 3 points 
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MOYENNE MOBILE PONDÉRÉE 


Description 


Une deuxième méthode de lissage consiste à calculer la moyenne 
pondérée sur trois points et de proche en proche. Le lissage des données 
est effectué en attribuant le coefficient 3 au point le plus récent, le 
coefficient 2 au précédent et le coefficient 1 au premier point introduit. 
C’est donc toujours le point le plus récemment introduit qui est affecté 
du plus fort coefficient. La mise en œuvre de ce programme est effectuée 
à partir du catalogue; les données ainsi traitées sont stockées dans le 
tableau R(1). Comme précédemment, ces données peuvent être affichées 
sous forme numérique ou sous forme de graphe par le programme 
graphique. Notez que, lorsqu'il y a plusieurs ensembles de données, il 
n’est pas possible de les mettre simultanément en mémoire. 


Exemple 


Appliquons le programme de moyennage pondéré au traitement des 
données de laboratoire d’Anne-Marie. Figure 5.13 on trouve à la fois les 
données brutes et les données traitées en utilisant ce programme. La 
liste du programme est donnée Figure 5.14. 
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Programmes d’analyse de données 


Se nest nent nant Canne amet © 
6 11 16 21 26 31 


TAPEZ UNE TOUCHE FOUR CONTINUER 


Figure 5.13 : Affichage à l'écran : Moyenne mobile pondérée 


N$="MOYENNE MOBILE FONDEREE SUR 3 POINTS" 
REM 

GOSUB 6200 

REM ON PLACE LE RESULTAT EN R(1) 
R(1)=0 : R(2)=0 : R(3)=0 

FOR 1=4 TO ND 

RC(ID=(D(I-3) +2#D(1-2) +3*D(1-1))/6 
NEXT I 

Q1$="VOULEZ-VOUS AFFICHER LA“ 
Q2$="DONNEE (O0 OÙ N)" 

Q3$="" : SOSUB 5000 

SOSUB 7800 

IF NOS$="N" THEN RETURN 

CLS 

FOR 1=4 TO ND 

PRINT R(I), 

NEXT I 

SOSUB 7400 

RETURN 


Figure 5.14 : Liste du programme : Moyenne mobile pondérée 
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MOYENNE CENTRÉE SUR QUATRE POINTS 


Description 


Voici une dernière méthode de lissage : le moyennage centré sur quatre 
points. Cette méthode conduit à affecter d’un coefficient 1 les données 
introduites en premier et en cinquième rang, et d’un coefficient 2 les 
données introduites en deuxième, troisième et quatrième rang. Le 
programme est mis en œuvre à partir du catalogue. Les données traitées 
peuvent être affichées sous forme numérique ou sous forme graphi- 
que. 


Exemple 


Appliquons cette méthode aux données de laboratoire rassemblées par 
Anne-Marie. La Figure 5.15 donne l'affichage conjoint des données 
traitées et des données brutes. La Figure 5.16 donne la liste du 
programme. 
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TAPEZ UNE TOUCHE FOUR CONTINUER 


N$= "MOYENNE CENTREE SUR 4 POINTS" 

1780 REM ------— 
"1790 GOSUB 6200 

1800 REM ON PLACE LE RESULTAT EN R(I) 
"1810 R(1)=0 : R(2)=0 : R(32=0 : R(4)=0 : R(5)=0 

1820 FOR I1=6 TO ND 

1850 R(T)=(D(I-S)+2#(D(1-4)+D(1-3)+D(I-2Z)+D(1-1))/8 

1840 NEXT I 

1850 "VOULEZ-VOUS AFFICHER LA" 

1869 "DONNEE (O OÙ N)" 

1870 GS$="" : GOSUB 5000 

1880 GOSUB 7800 

\890 IF NO$="N" THEN RETURN 

1900 CLS 

1910 FOR I1=4 TO ND 

1920 PRINT R(1) 

1Y%0 NEXT 1 

1940 GOSUB 7400 
RETURN 


Figure 5.16 : Liste du programme : Moyenne centrée sur 4 points 
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RÉGRESSION LINÉAIRE 


Description 


La méthode de régression permet d'obtenir la meilleure ligne droite 
correspondant à un groupe de données. Cette ligne est celle qui 
correspond le mieux au critère de régression. Le programme est mis en 
œuvre à partir du catalogue. Il utilise les données mises en mémoire au 
moyen du programme d'introduction des données. L’équation de la 
ligne droite choisie est affichée sur l'écran; son graphe sera obtenu en 
utilisant le programme de graphisme, mais il peut être légèrement 
distordu à cause de la trop faible résolution verticale de l'affichage. 


Exemple 


Franck voudrait obtenir la droite de régression correspondant aux 
données que l’expérimentation lui a fournies. Ces données sont les 
suivantes : 


Point 12 3 4 5 6 7 8 9 10 Il 
Donnée 1 2 3 5 5 6 7 9 10 Il Il 
Point 12 13 14 15 16 17 18 19 20 21 22 
Donnée 12 13 14 14 15 16 17 19 20 21 22 


L'affichage pour cet exemple est donné par la Figure 5.17; la liste du 
programme par la Figure 5.18. 
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RÉGRESSION LINEAÏRE 


-969477 X + .454517 


--POUR CONTINUER FRAFFER UNE TOUCHE 


Figure 5.17 : Affichage à l'écran : Régression linéaire 


1960 REM = 
1970 N$="REGRESSION LINEAIRE" 
1980 REM —-—— 
1990 GOSUB 6200 
2000 5X=0 : SY=0 : SXY=0 : SX2=0 
2010 FOR I=1 TO ND 
| 2020 SX=SX+I 
2030 SY=SY+D(I) 
2040 SXY=SXY+D (I) #I 
2050 SXZ2=5X2+1"2 
2060 NEXT I 
2070 M=(SXY-SX#SY/ND) / (SXZ-SX"Z/ND) 
Z0B0 B=SY/ND-M#SX/ND 
2090 PRINT" = MyUX + "5 
2100 REM MISE À JOUR DU CHAMF RESULTAT 
2110 FOR I=1 TO ND 
2120 RCI)=B+M#I 
2130 NEXT 1! 
2140 GOSUB 7400 
2150 RETURN 


Figure 5.18 : Liste du programme : Régression linéaire 


6 


PROGRAMMES 
D'EXERCICES DE 
MATHÉMATIQUES 


Les trois ensembles de programmes de ce chapitre vous permettront 
d'utiliser votre ordinateur pour des exercices d’arithmétique. Chaque 
ensemble a son propre fichier et est mis en œuvre à partir d’un 
catalogue que vous devrez donc introduire au préalable. On y trouvera 
des exercices portant sur l’addition, la soustraction, la multiplication et 
la division des nombres entiers et des nombres fractionnaires. Les trois 
catalogues offrent un choix de programmes de difficulté graduée allant 
du niveau des premières classes primaires à celui de fin d’études 
secondaires. Tous ces programmes comptabilisent les bonnes et mau- 
vaises réponses. 

Une fois familiarisés avec ces programmes, enfants et adolescents 
feront de rapides progrès en arithmétique et leur travail scolaire en 
bénéficiera. 
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PREMIER CATALOGUE 
D'EXERCICES DE MATHÉMATIQUES 


Le premier groupe de programmes comprend quatre types d’exercices 
portant sur les nombres entiers : l’addition, la soustraction, la multi- 
plication et la division. Après l’affichage du catalogue, vous ferez votre 
choix en pressant une des touches numériques. L’ordinateur deman- 
dera alors de fixer le plus grand nombre pouvant être utilisé; en 
fonction de cette indication, 1l proposera deux nombres et mentionnera 
l'opérateur définissant le type d’exercice sélectionné. Vous introduirez 
votre réponse de gauche à droite. 

En plus du programme catalogue, deux sous-programmes communs 
devront être associés au programme principal. La Figure 6.1 donne 
l’affichage à l'écran, et la Figure 6.2 la liste du programme catalo- 
gue. 
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ADDITION 
SOUSTRACT ION 
MULTIPLICATION 
DIVISION 


| Figure 6.1 : Affichage de l'écran : Erercices de mathématiques I 


N$="EXERCICES DE MATHEMATIQUE 1" 
GOSUB 6200 
140 K=1 

150 X$(1)2="ADDITION" 

160 X$(2)="SOUSTRACTION" 

170 X$(3)="MULTIPLICATION" 

160 X$(4)="DIVISION" 

190 Z=4 : GOSUB 7000 

200 R=0 : W=0 

210 Qt$="QUEL EST LE PLUS GRAND NOMBRE" 
220 Q2$="QUE VOUS DESIREZ" 

230 QS$="UTILISER" 

240 G60SUB 5000 

250 PRINT TAB(20) : INPUT Y 

260 ON X GUSUB 500,620,770,690 

GOTO 100 


Figure 6.2 : Liste du programme : Exercices de mathématiques I 
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SOUS-PROGRAMMES 
D'EXERCICES DE MATHÉMATIQUES 


Ces deux sous-programmes servent à afficher les questions et les 
réponses. Ils doivent être introduits avant les programmes d’exercices 
et ont pour objet de les raccourcir. Ils génèrent de manière aléatoire les 
nombres proposés pour les calculs et tiennent la comptabilité des 
résultats. Leurs listes se trouvent Figure 6.3. 
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REM QUESTION ET REPONSE 


LOCATE 20,5 PRINT USING"#H####";N1 

LOCATE 19,6 PRINT SN$:; : PRINT USING'###4";N2 
LOCATE 20,7 PRINT"----" 

PRINT"REPONS Me 

INPUT À 

PRINT"'LA REPONSE CORRECTE EST 

RETURN 


PRINT : PRINT"VOUS AVEZ " 

IF S=1 THEN PRINT"'RAISON" ELSE PRINT'TORT" 
IF S=1 THEN R=R+1 ELSE W=W+1 
PRINT"PROBLEMES" ; TAB (20) : R+W 
PRINT"CORRECTS";TAB(20);R 
PRINT"ERREURS" ; TAB (20) ;W 

Q2$="VOUS EXERCER" : GOSUB 3400 

RETURN 


Figure 6.3 : Sous-programmes d'exercices de mathématiques 
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ADDITION 


Description 


Pour chaque exercice portant sur l’addition, deux nombres pris au 
hasard vous seront donnés. Le résultat de l’opération devra être entré 
de gauche à droite, ce qui veut dire qu’il faudra au préalable l’inscrire 
sur une feuille de papier. Le programme tient compte du nombre 
maximum que vous avez vous-même fixé. 


Exemple 


Sur la Figure 6.4 apparaît le résultat correct de l’addition des nombres 
5 et 4. La liste du programme d’addition est donnée par la 
Figure 6.5. 
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EXERCICE D'’ADDITION 


5 
+ 4 

REPONSE 79 

LA REPONSE CORRECTE EST : 9 


VOUS AVEZ 


RAISON 
PRUBLEMES 1 
CORRECTS 1 


ERFEURS 


-- VOULEZ-VOUS 
VOUS EXERCER 
DE NOUVEAU O OÙ N ?0 


nn 


REM 
N$="EXERCICE D'ADDITION" 


GOSUB 6209 

NI=INT (RND (Y) #Y) 
N2=INT (RND (Y) #Y) 

SN$="+" 

GOSUB 280 

IF A=NI+N2 THEN S=1 ELSE S=0 
PRINT USING"##H##";N1+N2 

REM BILAN DE L'EXERCICE 


80SUB 380 
IF NO$="N" THEN RETURN ELSE 530 


Figure 6.5 : Liste du programme : Exercices d'addition 
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SOUSTRACTION 


Description 


L'exercice de soustraction ressemble à l’exercice d’addition. Le choix 
des nombres destinés à faire l’objet du calcul est tel que la réponse est 
toujours de signe positif. 


Exemple 


L'affichage de la Figure 6.6 donne le résultat correct de la soustraction 
posée. La Figure 6.7 donne la liste du programme de soustraction. 
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EXERCICE DE SOUSTRACTION 


8 
= 7 

REPONSE 71 
LA REPONSE CÜRRECTE EST : 


VOUS AVEZ 
RAISON 
PROBLEMES 
CORRECTS 
ERREURS 


— VOULEZ-VOUS 
VOUS EXERCER 
DE NOUVEAU O OÙ N ?0 


Figure 6.6 : Affichage à l'écran : Evercices de soustraction 


620 REM 
650 N$="EXERCICE DE SOUSTRACTION" 
LAO- REM == SEE FIRE 
650 GOSUB 46200 

660 N1=INT (RND (Y) #Y) 

670 N2=INT (RND (Y) #Y) 

680 NS=NI 

690 IF NIi>N2 GOTO 710 

700 NI=NZ : N2=NS 

710 SN$="-" 

720 GOSUB 280 

739 IF A=NI-N2 THEN S=1 ELSE 5=0 
740 PRINT USING"####";N1-N2 

7AS REM BILAN DE L'CXERCICE 

750 GOSUB 380 

760 IF NO$="N" THEN RETURN ELSE 4620 


Figure 6.7: Liste du programme : Exercices de soustraction 
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MULTIPLICATION 


Description 


Deux nombres vous sont donnés et il s’agit de multiplier l’un par 
l’autre. Le plus grand ne peut dépasser la limite que vous avez fixée. Le 
programme affiche la réponse sur une seule ligne. Si le multiplicateur 
comprend plusieurs chiffres, vous pourrez utiliser le programme de 
multiplication de grands nombres figurant plus loin dans ce chapitre. 
Ce programme affiche les opérations intermédiaires qui sont dans ce 
cas nécessaires. 


Exemple 


La Figure 6.8 donne l'affichage de la multiplication de 7 par 6. La 
Figure 6.9 est la liste du programme de multiplication. 
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EXERCICE DE MULTIPLICATION 


7 
X 6 


REPONSE ? 42 
LA REPONSE CORRECTE EST : 42 


VOUS AVEZ 
RAïiSON 
FROÏLEMES 
CORRECTS 
ERREURS 


- VOULEZ-VOUS 
VOUS EXERCER 
LE NOUVEAU O OÙ N ?0 


Figure 6.8 : Affichage à l'écran : Exercices de multiplication 


780 N$="EXERCICE DE MULTIPLICATION" 
7DO-REM' === nr eee eee = 
800 GCSUB 46200 

910 N1=INT (RND (Y) #Y) 

820 NZ=INT (RND (Y) #Y) 

830 SN$="X" 

S4C COSUB 280 

250 IF A=N1XN2 THEN S=1 ELSGE 35=0 
860 PRINT USING"####" ; N1%N2 

6870 GOSUB 380 

880 1F NO$="N" THEN REYURN ELSE 770 


Figure 6.9 : Liste du programme : Exercices de multiplication 
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DIVISION 


Description 


Division d’un nombre entier par un autre nombre entier. Fixez la 
limite supérieure que peut atteindre le dividende lors de l’appel au 
programme catalogue. Le programme choisit deux nombres de manière 
à ce que le résultat soit toujours un nombre entier. Le nombre le plus 
grand susceptible d’être obtenu comme réponse ne saurait évidemment 
dépasser le nombre limite choisi au départ. 


Exemple 


La Figure 6.10 donne le résultat de la division de 4331 par 61. La liste 
du programme de division est donnée par la Figure 6.11. 
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EXERCICE DE DIVISION 


4531 

/ 61 
REPONSE ? 71 
LA REPONSE CORRECTE EST : 


VOUS AVEZ 
RAISON 
PROBLEMES 
COURRECTS 
ERREURS 


VOULEZ-VOUS 
VOUS EXERCER 
DE NOUVEAU O OÙ N ?0 


à 


Figure 6.10 : Affichage l'écran : Exercices de division 


6890 REM -----———————————————— 
900 N$="EXERCICE DE DIVISION" 
DLO.REM === es 
920 GOSUB 6200 

930 N1=INT (RND (Y) #Y) 

940 N2=INT (RND (Y) #Y) 

950 N1=N1xN2 

960 SN$="/" 

970 GOSUB 280 

980 IF A=N1/N2 THEN S=1 ELSE S=0 
990 PRINT USINS'"####";N1/N2 
995 REM BILAN DE L'EXERCICE 
1000 GOSUB 380 


1010 IF NO$="N" THEN RETURN ELSE 690 


Figure 6.11 : Liste du programme : Exercices de division 
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DEUXIÈME CATALOGUE 
D'EXERCICES DE MATHÉMATIQUES 


Ce deuxième catalogue comporte deux programmes. Le premier permet 
de s'exercer à l’addition de nombres disposés en colonne; le second 
d'effectuer la multiplication de grands nombres en affichant les 
opérations intermédiaires. Pour chacun de ces exercices, il est recom- 
mandé de se munir d’une feuille de papier et d’un crayon afin de noter 
les résultats avant de les introduire en machine. La Figure 6.12 donne 
l'affichage du catalogue et la Figure 6.13 la liste du programme 
correspondant. 
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ADDITION EN COLONNE 
MULTIPLICATION DE GRANDS NOMBRES 


Figure 6.12 : Affichage à l'écran : Exercices de mathématiques II 


JOO'REM = SR ESS SES SET ESS 

110 N$="EXERCICES DE MATHEMATIQUE 11" 
L20.REM' = === re SRE ETES 

130 GOSUB 4200 

140 K=1 

150 X$(1)="ADDITION EN COLONNE" 

160 X$(2)="MULTIFLICATION DE GRANDS NOMBRES" 
170 REM FREFARATION ET AFFICHAGE DU CATALOGUE 
180 Z=2 : GOSUR 7000 

190 ON X GOSUB 210,580 

200 GOTO 100 


Figure 6.13 : Liste du programme : Exercices de mathématiques II 
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ADDITION EN COLONNE 


Description 


Ce programme propose l’addition de nombres disposés en colonne. 
Vous le sélectionnez à partir du catalogue en pressant la touche portant 
le chiffre 1. Vous déciderez combien de nombres vous voulez addition- 
ner et vous fixerez la valeur limite du plus grand nombre. Les réponses 
correctes et incorrectes seront comptabilisées. 


Exemple 


La Figure 6.14 donne le résultat correct de l’addition des cinq nombres 
47, 41, 1, 34, 13 et la Figure 6.15 la liste du programme. 


N$="ADDITON EN COLONNE" 
REM 
GOSUR 46200 


D1$="" 
aZ#="QUEL EST LE FLUS GRAND NOMBRE" 
03$="A ADDITIONNER" 


GOSUER 5000 

REM ON DONNE LE NOMBRE 
INFUT LG 

G2$="COMAIEN DE NCMBRES" 
GOSUB 5000 

INPUT NU 

Re : W=ù 


Figure 6.15 : Liste du programme : Addition en colonne 
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ADDITON EN COLONNE 


VOTRE REPONSE 


RÉPONSE CORRECTE 
VOUS AVEZ RAIBON 
NOMBRE D'EXERCICES 
REP. CORRECTES 
REP. ERRONÉE 


—VOULEZ-VOUS 
ADDITIONNER 
DE NOUVEAU O OÙ N 70 


C9 


Figure 6.14 : Affichage à l'écran : Addition en colonne 


GOSUB 46200 
250 TT=0 

360 FOR I=1 TO NU 

S7C NI1=INT (RND (LG) #16) 

380 TT=TT+NI 

390 FRINT TAB(20); 

409 PRINT USING"######°3:N1 

410 NEXT I 

420 FRINT TAB(20) ; "=" 

430 FRINT"VOTRE REPONBE" ; TAB (20) 

440 INFUT À 

450 FRINT 

460 FRINT'REPONSE CORRECTE"; TAB (20) 

470 FRINT USING"######"; TT 

489 IF TT=A THEN S=1 ELSE S=0 

490 FRINT"VOUS AVEZ ‘"; 

SOC IF S=1 THEN R=R+1 ELSE W=u+1 

519 IF S=1 THEN FRINT'"'RAISON" ELSE PRINT"TORT" 
S%0 FRINT'NOMBRE D'EXERCICES"; TAB(20);R+UW 

S40 FRINT"'REF. CORRECTES"; TAB (20) ;R 
550 PRINT"'REF. ERRONEES"3;TAB(20);u 

560 G2$="ADDITIONNER" : GOSUB 3400 

1F NO$="N" THEN RETURN ELSE 3540 


Figure 6.15 : Liste du programme : Addition en colonne (suite) 
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MULTIPLICATION DE GRANDS NOMBRES 


Description 


Le programme constitue un excellent outil pour l’entraînement à la 
multiplication de grands nombres. On le choisit à partir du catalogue 
en pressant la touche 2. Vous devez aussi indiquer combien de chiffres 
doivent avoir les facteurs à multiplier. Deux nombres vous seront alors 
proposés, vous effectuerez leur multiplication et donnerez la réponse à 
l'ordinateur. La réponse correcte sera affichée ainsi que les étapes 
intermédiaires du calcul ce qui vous permettra de retrouver plus 
facilement les erreurs éventuelles. 


Exemple 


La Figure 6.16 donne le résultat de la multiplication de 9 105 par 4 645 
et la Figure 6.17 la liste du programme. 


KEN 
NBs"MLiL I 1PLICATION DE GRANDS NOMBRES" 
30SUS 6200 

Qis=v" 


G2$="COMBIEN DE CHIFFRES" 

U3#$="AURONT LES NOMBRES À MULTIPLIER" 
‘50SUH 5000 

INPUT 2 

GOSUE 6700 

NI=0 :N2=0 


Figure 6.17 : Liste du programme : Multiplication de grands nombres 
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42292700 


DONNEZ VOTRE REPONSE —>? 42292725 
VOUS AVEZ TORT 
-VOULEZ-VOUS 


MULTIPLIER 
DE NOUVEAU O OÙ N ?0 


ii ” 


Figure 6.16 : Affichage à l'écran : Multiplication de grands nombres 


496 FOR 1=0 TO Z-1 

700 NiCI)=INT (RND(Z)#10) =: Ni=N14N1 (I)#10"T 
710 N2(I)=INT (RND(Z)#10) : N2=N2+N2(I1)#10"I 
720 NEXT I 

730 FRINT TAB(20) : PRINT USING '######t4t#tittt" 5 N1 
740 FRINT TAB(20) : PRINT USING'#4###4f#f4titit" 5 N2 
750 PRINT TAB (20) ; " 

760 LOCATE 1,16 

770 FRINT"DONNEZ VOTRE REPONSE  ->"3; 

790 INFUT A 

790 LOCATE 1,6 

800 FOR I=0 TO Z-1 

910 PRINT TAB(20) 

915 PRINT USING'#H4#H4##M #44" 3 NIUNZ (I) #10" TI 

820 NEXT 1 

930 FRINT TAB (20) 3" " 

840 FRINT TAB(20) ?: PRINT USINO'#4#H#H4##4#HHF#4##" 5 N1EN2 
845 PRINT 

850 LOCATE 1,18 : FRINT"UOUS AVEZ "; 

960 IF NixN2=A THEN S=1 ELSE S=0 

870 IF S=1 THEN PRINT"RAISON" ELSE PRINT"TORT" 
890 G2#="MULTIFLIER" : GOSUB 3400 

900 IF NO$="N" THEN RETURN ELSE 670 


figure 6.17 : Liste du programme : Multiplication de grands nombres (suite) 
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TROISIÈME CATALOGUE 
D'EXERCICES DE MATHÉMATIQUES 


Ce dernier catalogue concerne l’addition, la soustraction, la multipli- 
cation et la division de fractions. Le résultat sera calculé par réduction 
des fractions au plus petit dénominateur commun et donné sous cette 
forme sans transformation en nombre fractionnaire. Les bonnes et les 
mauvaises réponses sont comptabilisées. 

Les quatre programmes de calcul sur les fractions travaillent à partir 
d’un même catalogue. La Figure 6.18 donne l’énoncé de ce catalogue et 
la Figure 6.19 le programme correspondant. 
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ADDITION 

SOUS TRACT ION 
MULT IFLICATION 
DIVISION 


Figure 6.18 : Affichage à l'écran : Exercices de mathématiques III 


N$="EXERCICES DE MATHEMATIQUES 111" 
120 REM = 

130 DEFINT D-Z 

140 GOSUB 6200 

150 K=1 

160 X$(1)="ADDITION" 

170 X$(2)="SOUSTRACTION" 

180 X$(3)="MULTIFLICATION" 

199 X$i4)="DIVISION" 

200 Z=4 : GOBUB 7000 

210 R=O : W=0 

220 G1#="QUEL EST LE FLUS GRAND DENOMINATEUR" 
230 G2#="SUR LEQUEL" 

440 G3$="VOUS DESIREZ TRAVAILLER" 

245 REM ON FOSE LA QUESTION 

250 GOSUB 5000 

260 PRINT TAB(24) : INPUT Y 

270 ON X GOSUB 910,950,1100,1240 

GOTO 100 


Figure 6.19: Liste du programme : Exercices de mathématiques III 
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SOUS-PROGRAMMES DE FRACTIONS 


Avant toute mise en œuvre des programmes, introduire en mémoire les 
sous-programmes de la Figure 6.20. Ils proposeront les fractions, le 
dénominateur commun, commanderont l'affichage de la question et 
l'impression de la réponse. 

Ces sous-programmes font appel à un générateur de nombres 
aléatoires pour déterminer les numérateurs et les dénominateurs. 
L'affichage sur l’écran est effectué sous forme de fractions comme le 
montre l’exemple suivant : 


Pour formuler votre réponse, vous devrez énoncer séparément le 
numérateur et le dénominateur. 
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REM SS-FROGRAMME 
BLO REM ESS Se SES SES SR SSSR Se SET ES 
320 N1=INT (KRND{(Y) #Y) IF Ni=u THEN 359 

740 NZ=INT RND!{Y) #Y) 1F NE THEN 340 

330 DI=INT (RND iY:#v) 1F Dj=0 THEN 330 

360 D2=INT (RND (Y’ #Y) IF D2=0 THEN 560 

T45 REM ON S ASSURE D'UN RESULTAT PNSITIF 

570 IF N1/D1%=N2/D2 THEN 400 

789 NS=N? : NTENI : NI=N3 

+96 D3=D2 : D2=D1 : D1=D3 

40: RETURN 

410 REM 
420 KEM SS-PROGRAMME DE RECHERCHE DU DENOMINATEUR COMMUN 
4320 REM -—-- 
440 U=N3S : V=DS 

450 G=U:-V#INTitU/V) 

462 IF G=0 THEN RETURN 


470 U=V 

480 V=5 

490 GOTU 450 

SOQ REM “me mn mme name een nee me 

519 REM AFFICHAGE DE LA QUESTION, DONNEZ LA REPONSE 

S20 REM === "2 
ZO LOCATE 20,5 

S40 FRINT USING'#H#  ";N1;N2 

550 LOCATE 29,6 

560 PRINT"--- "ySNS;" ——-" 

570 LOCATE 20,7 

589 PRINT USING"###  ";D1;D2 

590 PRINT'"INTRODUISEZ LE NUMERATEUR  ‘; 


&UO INFUT AN 

610 PRINT'INTRODUISEZ LE DENOMINATEUR ‘; 
620 INFUT AD 

630 FRINT : FRINT"'LA REFONSE CORRECTE EST :" 
640 RETURN 

DAO-REM ====2=2-==2-5-s— 

660 REM BILAN DE L'EXERCICE 

H7O'REM RSS SS RS ss 

680 PRINT TAB(24)3 : FRINT USING"###"; NS 
6970 PRINT TAB(24);"---" 

700 PRINT TAB(24); : PRINT USING"###"; DS 

710 IF AN=NS AND AD=D3 THEN S=1 ELSE S=0 
720 PRINT : PRINT"VOUS AVEZ "; 

730 IF S=1 THEN PRINT"'RAISON" ELSE PRINT"TORT" 
‘735 REM VERDICT 

740 IF S=1 THEN R=R+1 ELSE W=W+1 

760 PRINT'NOMBRE D'EXERCICES"; TAB(20) ; R+W 
770 PRINT"'REP. CORRECTES"; TAB(20):R 

780 PRINT"'REP. ERRONEES";TAB(20);W 

790 G2$="CALCULER" : GOSUB 3400 

RETURN 


Figure 6.20 : Sous-programmes d'exercices de calculs de fractions 


TO7 | 56 programmes 132 
ADDITION DE FRACTIONS 


Description 


Ce programme permet d’additionner deux fractions. On le sélection- 
nera à partir du catalogue en pressant la touche 1. On spécifiera quel 
est le plus grand dénominateur sur lequel on veut travailler. 


Exemple 


La Figure 6.21 donne le résultat de l’addition 1/1 + 1/1. La liste du 
programme correspondant à ce type d'exercices est donnée par la 
Figure 6.22. 
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Programmes d'exercices de mathématiques 


840 
845 
850 
860 
870 
880 
890 
900 
910 
920 
925 
930 
940 


EXERCICE D'ADDITIDN 


1 1 

CR 

1 1 
INTRODUISEZ LE NUMERATEUR PT 
INTRODUISEZ LE DENOMINATEUR 7? 1 


LA REPONSE CORRECTE EST : 


VOUS AVEZ TORT 
NOMBRE D'EXERCICES 
REP. CORRECTES 
REP. ERRONEES 
—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N 70 


Figure 6.21 : Affichage à l'écran : Erercices d'addition 


N#="EXERCICE D'ADDITION" 


GOSUB 6200 

REM NUMERATEUR ET DENOMINATEUR 
GOGUB 290 

SN$="+" 

GOSUB 500 

NS=D2#N1+D1#N2 

D3S=D1#D2 

REM DENOMINATEUR COMMUN 

GOSUB 410 

NS=NS/V 3: D3=DS/V 

REM BILAN 

GOSUB 650 

IF NO$="N" THEN RETURN ELSE S40 


Figure 6.22 : Liste du programme : Exercices d'addition 
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SOUSTRACTION DE FRACTIONS 


Description 


On sélectionnera ce programme à partir du catalogue en frappant la 
touche 2 et il faudra, là encore, préciser la valeur du plus grand 
dénominateur à utiliser. Comme pour le programme de soustraction du 
premier catalogue, les nombres seront choisis de manière que le 
résultat soit toujours de signe positif. 


Exemple 


La Figure 6.23 donne le résultat de l’opération 2/1 — 1/2 et la Figure 
6.24 la liste du programme permettant de réaliser ce type d’opéra- 
tion. 
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EXERCICE DE 8SOUB8TRACTION 


2 1 

1 2 
INTRODUISEZ LE NUMERATEUR ? 
INTRODUISEZ LE DENOMINATEUR ? 1 


LA REPONSE CORRECTE EBT : 


VOUS AVEZ TORT 

NOMBRE D'EXERCICES 
REP. CORRECTES 

REP. ERRONEES8 
—VOULEZ-VOUS 

CALCULER 

DE NOUVEAU Q OÙ N ?0 


Figure 6.23 : Affichage à l'écran : Exercices de soustraction 


960 N$="EXERCICE DE SOUSTRACTION" 
Q7OLREM === Sense seems 
980 608UB 46200 

990 608UB 290 

1000 N3=D2#N1-D1#N2 

1010 IF N3=0 THEN 990 

1020 8N$="-" 

1030 GOSUB 500 

1040 D3=D1#D2 

1050 REM DENOMINATEUR COMMUN 

1060 GOGUB 410 

1070 N3S=N3S/V : DS=D3/V 

1060 608UB 650 

1090 IF NO$="N" THEN RETURN ELSE 950 


Figure 6.24 : Liste du programme : Exercices de soustraction 
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MULTIPLICATION DE FRACTIONS 


Description 


Ce programme permet la multiplication de deux fractions. On le 
sélectionne en frappant la touche 3. Il est très facile à mettre en 
œuvre. 


Exemple 


La Figure 6.25 donne le résultat de la multiplication des fractions 2/2 
et 2/3. La liste du programme de multiplication de fractions est donnée 
par la Figure 6.26. 
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En deg : - n ne ei 


EXERCICE DE MULTIPLICATION 


+ 0 


2 2 
En —— X ——— 
2 5 
INTRODUISEZ LE NUMERATEUR 7 4 
FE INTRODUISEZ LE DENUMINATEUR ? 3 


LA REPONSE CORRECTE EST : 


VOIS AVEZ TORT 

NOMBRE D'EXERCICES 1 
REI*. CORRECTES [e) 
R'iF, ERKHONEES 1 
- VOULEZ -VOUS 

CALCULER 

DE NOUVEAU D OÙ N #0 


Figure 6.25 ‘ Affichage à I 


‘écran : Exercices de multiplication 


N$="EXERCICE DE MULTIPLICATION" 
LSO RENE SES mess See 
1130 GOSUR 8200 

1135 REM NUMERATEUR ET DENOMINATEUR 

1140 GOSUB 290 

1150 SNS="X" 

1160 GODSUB 500 

1170 N3=N1#N2 

1100 D3=D1#D2 

1190 REM DENOMINATEUR COMMUN 

1200 GOSUB 410 

210 N3=N3/V : D3=D3/V 

1215 REM BILAN 

1220 GOSUB 450 

IF NOS="N" 


THEN RETURN ELSE 1100 


Figure 6.26 : Liste du programme : Erercices de multiplication 
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DIVISION DE FRACTIONS 


Description 


Programme sélectionné à partir du catalogue en frappant la touche 4. Il 
ramène au programme précédent puisqu'on multiplie la fraction 
dividende par la fraction diviseur inversée. 


Exemple 


L'affichage à l'écran de la division de 3/1 par 4/3 est donné par la 
Figure 6.27 et la liste du programme de division de fractions par la 
Figure 6.28. 


139 Programmes d'exercices de mathématiques 


EXERCICE DE DIVISION 


3 4 
FRERE / ss 
1 3 
INTRODUISEZ LE NUMERATEUR 7 4 
INTRODUISEZ LE DENOMINATEUR 7 3 


LA REPONSE CORRECTE EST : 


VOUS ÂAVEZ TORT 

NOMBRE D'EXERCICES 1 
REP. CORRECTES Le) 
REF. ERRONEES 1 
-VOULE Z- VOUS 

CAi.CULER 

UE NOUVEAU O0 OU N ?0 


à l'écran : Exercices de division 


Figure 6.27 Affichage 


N#$&="EXERCICE DE DIVISION" 
1269 REM -----—--————————————— 

1270 GOSUR 6200 

1275 REM NUMERATEUR ET DENOMINATEUR 
1280 GOSUB 290 

1290 NS=N14N2Z 

1300 D3S=D1#N2 

1310 REM DENOMINATEUR COMMUN 

1320 GOSUB 410 

1330 NS=NS/V : D3=D3/V 

1340 SN$="/" 

13350 GOSURB 500 

1360 GOSUB 450 

1365 KEM BILAN 


IF NO$="N" THEN RETURN ELSE 1240 


Figure 6.28 : Liste du programme : Erercices de division 


ANNEXE A 


SOUS-PROGRAMMES 
GÉNÉRAUX 


A l’aide des sous-programmes figurant ici, on pourra aisément 
concevoir des programmes courts et donc faciles à introduire en 
mémoire. Les lecteurs intéressés par les possibilités qu'offrent ces 
sous-programmes consulteront l’Annexe B qui montre comment ils 
peuvent être utilisés dans d’autres applications. 

Cette annexe contient les listes des sous-programmes généraux 
utilisés au cours du livre; elles comportent de nombreux commentaires 
destinés à faciliter leur compréhension. 

En les sauvegardant ensemble en un même fichier, vous éviterez 
d’avoir à les retaper plusieurs fois. Associez ces sous-programmes à vos 
programmes d'application ainsi qu’il a été indiqué au cours du 
Chapitre 1. Et souvenez-vous que seule la première instruction REM est 
à conserver dans chaque sous-programme. 
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REM "UNAU* 
REM 
REM DEMANDE D'UN AUTRE CYCLE 
REM 
REM CE PROGRAMME DEMANDE À L'UTILISATEUR 
REM S'IL VEUT CONTINUER 
REM APFEL DES PARAMETRES 
REM Q2$=CHAINE DE CARACTERES DEFINISSANT LES OPERATIONS 
KEM 
REM FARAMETRES INTRODUITS EN KEPONSE 
REM NO$=UN "O0" OÙ UN "N'" FOUR OUI OÙ NON 
REM 
REMS = rene ee pme Eee 
20 Q1#="VOULEZ--VOUS" 

3430 Q3#="DE NOUVEAU O0 OÙ N 7" 

5446 GOSUER 5000 

I450 GÜSUE 7800 

2480 RETURN 


Figure A.1 : Sous-programme permettant de recommencer à faire fonction- 
ner un programme 


SOCG REM "DIALOG" 

3001 REM 

S002 REM DIALOGUE 

Sû0S REM 

SG04 REM AFPFEL DES PARAMETRES : 

9005 REM Q1$, Q2$, Q3$ = QUESTIONS À AFFICHER 
5006 REM 

5007 REM FARAMETRES INTRODUITS EN REFONSE : 

5008 REM AUCUN 

5009 REM 

3010 KEM COMMENTAIRES : LES CHAINES DE CARACTERES 
SG11 REM CORRESPONDANT À DES QUESTIONS NON POSEES 
3512 REM DOIVENT ETRE CONSIDEREES COHME NULLES ("") 
3013 REM 

5020 FÜR 

SAT 

SQG40 IF 1:20 THEN 2080 


5045 REM TRACE D'UNE BORDURE 
50850 FÜR J=1 TO 40 

5960 ="; 

2070 NEXT J 


906) IF 1=21 THEN FRINT G1#: 

5090 IF I1=22 THEN PRINT Q2$; 

3100 IF 1=23 THEN FRINT Q5#: 

23109 REM ON RAMENE LE CURSEUR APRES LA SEME QUESTION 
5110 CF1=FOS(N) 

3115 REM CURSEUR EN POSITION COLONNE 

5120 CF=POS (N) 

3120 IF CF*:3:8 THEN 5150 

5135 REM EFFACEMENT DES INFOS ANTERIEURES 

5140 PRINT" “3; : GOTO 5170 

5147 REM ON PRAMENE LE CURSEUR FOUR INIRODUIRE LES RET CHSES 
S1SQ LOCATE CPI, 1 

5160 NEXT I 

3170 RETURN 


Figure A.2 : Sous-programme de dialogue 
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REM 
REM 
REM 
REM 
REM 
REM 
REM 
FEM 
REM 
REM 
REM 
REM 


"INTCAR" 


INTRODUCTICN DE CARACTERES 


AFFEL DES PARAMETRES : 
AUCUN 


FARAMETRES INTRODUITS EN REFONSE : 
CH$=INTRODUCTION DE CARACTERE 


ATTENTE DE L'INTRODUCTION D'UN CARACTERE 


CH$SSINKEYS : IF CH$="" THEN 5430 
RETUFN 


REM 


REM 


Annexe À 


Figure A.3 : Sous-programme d'introduction de caractères 


"INTDON" 


APPEL DES PAKAMETRES : 
@1$, Q2#=INSTRUCTIONS POUR L'UTILISATEUR 
QG3$=NOM DE LA DONNEE 


PARAMETRES INTRODUITS EN REPONSE : 
P#(K)=CHAMP RESERVE AUX DONNEES 


COMMENTAIRES : ON INTRODUIT UNE DONNEE 
A LA FOIS, LE PREMIER AFPFEL EST ASSOCIE A K=1 
LA VALEUR DE K AUGMENTE AUTOMATIQUEMENT 


QUEST IONS 
GOSUR 5000 


DONNEES 


INPUT P#(K) 


REM 


QUESTIONS EN ECHO ET REFONSE 


LOCATE 3,K+2 
PRINT Q3$:;TAR(25):P#(K) 


REM 


INCREMENTATION DE L'INDEX 


É=K+i 
RETURN 


Figure À.4 : Sous-programme d'introduction de données 
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"PREP" 


PREPARATION DE L'AFFICHAGE 


CE SS PROGRAMME VIDE L'ECRAN 

ET AFFICHE LE TITRE DU FROGRAMME 
APPEL DES PARAMETRES : 

N$=TITRE DU PROGRAMME 


PARAMETRES INTRODUITS EN REFONSE : 


ECRAN VIDE 


TITRE 
PRINT N$ : PRINT 
RETURN 


Figure A.5 : Sous-programme de préparation et d'affichage 


"INTPAR" 
INTRODUCTION DES PARAMETRES 
APPEL DES PARAMETRES : 
Q1$, Q2$=INSTRUCTIONS POUR L'UTILISATEUR 
QS$=NOM DE LA DONNEE 


PARAMETRES INTRODUITS EN REPONSE : 
PAR (K) =DONNEE OBTENUE 


COMMENTAIRES : LE PREMIER APFFEL EST 


ASSOCIE À K=1, LA VALEUR DE K AUGMENTE AUTOMATIQUEMENT 


QUESTIONS 

GOSUB 5000 

REM INTRODUCTION DES DONNEES 
INPUT PAR(K) 

REM QUESTION EN ECHO ET REPONSE 
LOCATE 3,K+2 

PRINT Q5$; TAB (28) ; 

PRINT USING"###H#H##. #4"; PARK) 
K=K+1 

RETURN 


Figure À.6 : Sous-programme d'introduction de paramètres 


145 Annexe À 


"CATALOGUE" 
PROGRAMME CATALOGUE 


CE PROGRAMME AFFICHE LIN CATALOGUE 
ET FERMET DE CHOISIR UN PROGRAMME 
APPEL DES PARAMETRES : 

Z=NO. DES PROGRAMMES 

X#(I1)=CHAMP DU NOM DES PROGRAMMES 


PARAMETRES INTRODUITS EN REPONSE : 
X=NUMERO DU PROGRAMME CHOISI 


AFFICHAGE DU CATALOGUE 


1=1 TO Z 
IF 1=10 THEN PRINT O;ELSE PRINT 1: 
PRINT'"= " 3; X#(1) 
NEXT I 
Q1$="" : Q2$5="" 
@G3+$="CHOISISSEZ LE PROGRAMME :" 
REM QUESTIONS 
GOSUB 5000 
REM INTRODUCTION DE CARACTERE 
GOSUB 5400 
X=VAL (CH#) 
REM VOIR SI LE CARACTERE EST DANS LA GAMME 
IF X>=1 AND X<=Z THEN RETURN 
IF X=0 AND Z=10 THEN 7140 ELSE 7150 
X=10 : RETURN 
G1+#="CHOIX INTERDIT, CHOISISSEZ A NOUVEAU" 
GOSUB 5000 
GOTO 7100 


Figure A.7 : Sous-programme d'affichage de catalogue 


"ATTENTE" 
ATTENTE DE LA FRAPPE D'UNE TOUCHE 


CE SS PROGRAMME ATTEND QUE L'UTILISATEUR 
FRAPPE UNE TOUCHE 

APPEL DES PARAMETRES : 

AUCUN 


REM PARAMETRES INTRODUITS EN REPONSE : 
REM 
REM 


@1$="POUR CONTINUER FRAPFER UNE TOUCHE" 
Q2#="" : Q3s="" 

REM APPEL DIALOGUE 

GOSUB 5000 

REM ATTENTE DE LA FRAPPE D'UNE TOUCHE 
X$=INKEYS$ : IF X#="" THEN 7450 

RETURN 


Figure A.8 : Sous-programme d'attente 
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"OUINON" 


REM 

REM OUI --NON 

REM 

REM APPEL DES PARAMETRES : 

REM AUCUN 

REM 

REM PARAMETRES INTRODUITS EN REPONSE : 
REM NO$=OUI OU NON 

REM 

REM 

REM ON ATTEND LA FRAPPE D'UNE TOUCHE 
NO$S=INKEYS : IF NO$="" THEN 78350 

IF NO$="0" OR NO$='"N" THEN 7890 

REM SI REPONSE <> DE OUI OÙ NON NOUVEL ESSAI 
GOTO 78:50 

FRINT NO$ : RETURN 


Figure AÀ.9: Sous-programme oui/non 


ANNEXE B 


COMMENT 
UTILISER LES 
SOUS-PROGRAMMES 
GÉNÉRAUX 


Les lecteurs qui désireraient s'initier à la programmation pourront 
essayer d'écrire leurs propres programmes. Ils économiseront beaucoup 
de temps et d’efforts en utilisant les sous-programmes généraux de ce 
livre comme parties de programmes. Cette annexe a pour but de les 
aider. Nous y examinerons les fonctions de quelques-uns des sous- 
programmes. Des programmes simples montreront comment les sous- 
programmes peuvent être utilisés. 
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ÉTABLISSEMENT DU CATALOGUE 


Le sous-programme catalogue débute à la ligne 4600. Ce sous- 
programme effectue l'affichage d’un catalogue sur l'écran et attend 
ensuite l’introduction d’un nombre. C’est en choisissant ce nombre et 
en le signifiant à l’ordinateur que vous sélectionnez le programme que 
vous voulez utiliser. 

Les Figures B.1 et B.2 montrent la liste du programme et l’affichage 
sur l’écran concernant un catalogue simple. Nous définissons le tableau 
XS$(1) par l’ensemble des noms des programmes disponibles. La valeur 
de N correspond au nombre des programmes pouvant être sélectionnés. 
Le sous-programme affiche le nom des programmes et attend que 
l'utilisateur ait signifié son choix. Ce dernier est concrétisé au moyen 
d’une instruction GOSUB. 
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N$="EXEMPLE DE CATALOBUE" 


REM PREPARATION 

GOSUB 6200 

REM DEFINITION DU CHAMP CATALOGUE 
X# (1) ="PROBRAMME 1" 

X# (2)="PROGRAMME 2" 
X#(S)="PROBRAMME 3" 

X# (4) ="PROGRAMME 4" 


Z=4 : 6O0SUB 7Qa00 

ON X GOSUE 220,230,240,250 

END 

FRINT X#(1): CHOISI" RETURN 
PRINT X#(2) CHOISI" RETURN 
PRINT X$#(3) CHOISI" RETURN 
PRINT X#(4); CHOISI" RETURN 


Figure B.1 : Liste d'un programme 
permettant d'effectuer un choix à partir d'un catalogue 


PROGRAMME 
FROGRAMME 
PROGRAMME 
PROGRAMME 


( 


RUN 
Wu 


PBANS 


CHGISISSEZ iE FROGRAMME : 


Figure B.2 : Eremple d'affichage d’un catalogue permettant le choix 
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CHOISIR UN AUTRE PROGRAMME 


Tous les programmes de ce livre utilisent le sous-programme UNAU. Ce 
sous-programme demande à l'utilisateur s’il veut remettre en œuvre le 
programme précédemment utilisé. Trois lignes de données sont affi- 
chées. La première et la troisième sont fournies par le sous-program- 
me; vous aurez à écrire la seconde. 

Le sous-programme UNAU fournit la valeur O ou N à la variable NS. 
Le programme examine l’état de cette variable pour déterminer s’il lui 
faut de nouveau se remettre en action. 

Les Figures B.3 et B.4 donnent la liste du programme et l'affichage à 
l'écran correspondant. On voit comment ce programme type notifie la 
question METTRE EN ŒUVRE CE SOUS-PROGRAMME. 
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N$="UTILISATION DU SS-PROGRAMME ‘’UNAU’" 


GOSUB 6200 

@2$="METTRE EN OEUVRE CE SOUS PROGRAMME" 
REM UN AUTRE ? 

GOSUB 3400 

IF NO$="0" THEN 255 ELSE END 


Figure B.3 : Exemple d'utilisation du sous-programme UNAU 


UTILISATION DU SS-PROGRAMME _’UNAU 


—VOULEZ -VOUS 
METTRE EN OEUVRE CE SOUS PROGRAMME 
DE NOUVEAU O OÙ N ?N 


Figure B.4 : Affichage à l'écran : Utilisation du sous-programme UNAU 


LS 
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SOUS-PROGRAMME DE DIALOGUE 


Nous utiliserons le sous-programme DIALOGUE pour afficher trois 
lignes de texte au bas de l'écran. Il vous est ainsi possible de formuler 
trois questions différentes, ce qui est suffisant pour la plupart des 
programmes. Le plus souvent nous formulerons une instruction sur la 
première ligne et des questions sur la deuxième et la troisième. Ce 
sous-programme trace une ligne délimitant la zone d'affichage et 
supprime le texte affiché au cours de l’exercice qui a précédé. Les 
Figures B.5 et B.6 donnent une liste du programme et l'affichage 
correspondant. 
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320 REM 
330 N$="UTILISATION DU S5S5-PROGRAMME DIALOG" 


350 GOSUB 6200 

360 REM QUESTIONS 

370 G1$="VOICI LA PREMIERE QUESTION" 
275 REM QUESTION BLANCHE 

380 Q2$="" 

390 Q3$="VOICI LA DERNIERE QUESTION" 
395 REM SORTIE DES QUESTIONS 

400 GOSUB 5000 

410 END 


Figure B.5 : Exemple d'utilisation du sous-programme DIALOGUE 


UTILISATION DU SS-PROGRAMME DIALUG 


-VOICI LA FREMIERE QUESTION 


VOICI LA DERNIERE QUESTION 


Figure B.6 : Affichage à l'écran 5 
Utilisation du sous-programme DIALOGUE 
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PROGRAMME D’INTRODUCTION DE DONNÉES 


Le sous-programme INTPAR effectue l'entrée des données pour la 
plupart des programmes de ce livre et peut facilement être utilisé pour 
créer des programmes additionnels. Vous ferez débuter le processus 
d'entrée des données par le vidage de l’écran effectué au moyen du 
sous-programme PREP et par la mise à la valeur 1 de l’indexK. 
L'ordinateur est prêt pour l'introduction des paramètres du program- 
me. Pour chaque paramètre, faites Q3$ égal au nom du paramètre, puis 
appelez le sous-programme commençant à l'adresse 4400. Le sous- 
programme INTPAR demande l’entrée d’un paramètre au bas de 
l'écran. Le paramètre introduit apparaît alors en tête d'affichage. 
INTPAR met les paramètres en mémoire dans le tableau P(K) dans leur 
ordre d’entrée. Les Figures B.7 et B.8 donnent la liste du programme et 
l'affichage correspondant à la mise en œuvre de ce sous-programme. 
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N$="EXEMPLE D'INTRODUCTION DE DONNEES" 


GOSUB 6200 : K=1 
REM DEFINITION DU CHAMP DIALOSLE 
@1$="INTRODUISEZ LES DONNEES" : Q2$="" 
REM PREMIERE OPERATION 
) Q3$="PRIX DE DETAIL" : 6OSUB 6600 
REM SECONDE DPERATION 
Q3$="REMISE (%)" : GOSUB 6600 
PRINT : PRINT"'PRIX = ";TAB(24) 
PRINT USING"######,.##";PAR(1) -PAR(2) /1002PAR(1) 
END 


Figure B.7 : Exemple d'utilisation 
du sous-programme d'introduction des données 


EXEMPLE D'°INTRODUCTION DE DONNEES 


FRIX DE DETAIL 2400.00 
REMISE (2%) 10.00 
PRIX = 2,160. 00 


—INTRODUISEZ LES DONNEES 


REMISE (%)7 10 


3 der 


Figure B.8 : Affichage à l'écran : 
Utilisation du sous-programme d'introduction des données 
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PROGRAMMEZ EN BASIC SUR SPECTRUM par S.M. GEE, 
208 pages, Réf. 252 


JEUX EN BASIC SUR SPECTRUM par PETER SHAW, 
96 pages, Réf. 276 


TIMEX 


DÉCOUVREZ LE ZX 81 ET LE TIMEX SINCLAIR 1000 par DOUGLAS HERGERT, 
208 pages, Réf. 256 


TRS-80 


PROGRAMMEZ EN BASIC SUR TRS-80 par LÉOPOLD LAURENT, 
2 tomes, Réf. 250-251 


DÉCOUVREZ LE SHARP PC-1500 ET LE TRS-80 PC-2 par MICHEL LHOIR, 
2 tomes, Réf. 261-262 


JEUX EN BASIC SUR TRS-80 MC-10 par PIERRE MONSAUT, 
96 pages, Réf. 323 


JEUX EN BASIC SUR TRS-80 par CHRIS PALMER, 
96 pages, Réf. 302 


VIC 20 

PROGRAMMEZ EN BASIC SUR VIC 20 par G. O. HAMANN, 
2 tomes, Réf. 244-245 

JEUX EN BASIC SUR VIC 20 par ALASTAIR GOURLAY, 

96 pages, Réf. 277 


ZX 81 


DÉCOUVREZ LE ZX 81 ET LE TIMEX SINCLAIR 1000 par DOUGLAS HERGERT, 
208 pages, Réf. 256 


GUIDE DU BASIC ZX 81 par DOUGLAS HERGERT, 
204 pages, Réf. 285 


JEUX EN BASIC SUR ZX 81 par MARK CHARLTON, 
96 pages, Réf. 275 


MICROPROCESSEURS 


PROGRAMMATION DU Z80 par RODNAY ZAKS, 
618 pages, Réf. 220 


APPLICATIONS DU Z80 par JAMES W. COFFRON, 
304 pages, Réf. 274 


PROGRAMMATION DU 6502 par RODNAY ZAKS, 
376 pages, Réf. 224, 2° édition 
APPLICATIONS DU 6502 par RODNAY ZAKS, 
288 pages, Réf. 219 


PROGRAMMATION DU 6800 par DANIEL-JEAN DAVID ET RODNAY ZAKS, 
374 pages, Réf. 218 


PROGRAMMATION DU 6809 par RODNAY ZAKS ET WiLLIAM LABIAK, 
392 pages, Réf. 270 


SYSTÈMES D'EXPLOITATION 


GUIDE DU CP/M AVEC MP/M par RODNAY ZAKs, 
354 pages, Réf. 228 


CP/M APPROFONDI par ALAN À. MILLER, 
380 pages, Réf. 265 


INTRODUCTION AU p-SYSTEM UCSD par CHARLES W. GRANT ET JON BUTAH, 
308 pages, Réf. 257 


LOGICIELS ET APPLICATIONS 


INTRODUCTION AU TRAITEMENT DE TEXTE par HAL GLATZER, 
228 pages, Réf. 243 

INTRODUCTION À WORDSTAR par ARTHUR NAIMAN, 

200 pages, Réf. 255 

VISICALC APPLICATIONS par STANLEY À. TROST, 

304 pages, Réf. 258 


La plupart de ces ouvrages existent en version anglaise. N'hésitez pas à 
demander notre catalogue. 


EN ANGLAIS 


BASIC EXERCICES FOR APPLE by JEAN-PIERRE LAMOITIER, 

232 pages, Réf. 0-084 

BASIC FOR BUSINESS by DOUGLAS HERGERT, 

224 pages, Réf. 0-080 

CELESTIAL BASIC : Astronomy on your Computer by ERIC BURGESS, 
22B pages, Réf. 0-087 

INTRODUCTION TO PASCAL (Including UCSD Pascal) by RODNAY ZAKS, 
422 pages, Réf. 0-066 

DOING BUSINESS WITH PASCAL by RICHARD HERGERT AND DOUGLAS HERGERT, 
3B0O pages, Réf. 0-091 

MASTERING VISICALC by DOUGLAS HERGERT, 

224 pages, Réf. 0-090 

THE APPLE CONNECTION by JAMES W. COFFRON, 

228 pages, Réf. 0-0B5 

PROGRAMMING THE Z8000 by RICHARD MATEOSIAN, 

300 pages, Réf. 0-032 

A MICROPROGRAMMED APL IMPLEMENTATION by RODNAY ZAKS, 

35 pages, Réf. 0-005 

ADVANCED 6502 PROGRAMMING by RODNAY ZAKS, 

292 pages, Réf. 0-089 

FORTRAN PROGRAMS FOR SCIENTISTS AND ENGINEERS by ALAN À. MILLER, 
320 pages, Réf. 0-0B2 
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